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IDENTIFICATION 


PRODUCT CODE: AC-T463A-MC 
PRODUCT NAME: CNAAAAO AAV11 DIAGNOSTICS 


PRODUCT DATE: DECEMBER, 1982 
MAINTAINER: DIAGNOSTIC SERVICES/ISS 
AU’: HOR: R.SHOOP 


COPYRIGHT (C) 1982,1983 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 

COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE 

COPYRIGHT NOTICE. THIS SOF ae avhitnere. re COPIES THEREOF, MAY NOT 
AND TO ONE AGRE 

TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE 
ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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1.0 ABSTRACT SEQ 0003 | 


THE AAV11 DIAGNOSTIC PROGRAM IS A SERIES OF TESTS “4 sgmega 

TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE 

TOTAL PROGRAM CONTROL IS ACCOMPLISHED THRU THE CONSOLE TERMINAL 
VIA THE ODT/CONSOLE MICROCODE AND THE PROVISIONS OF SECTION 5. 


2.0 REQUIREMENTS 


2.1 EQUIPMENT 


1. PDP11/21 COMPUTER OR LSI-11 PROCESSOR 
2. OLV11 WITH 1/0 TYPE TERMINAL 
3. AAV11 DAC OPTION 


2.2 STORAGE 
THE PROGRAM USES THE LOWER 4k OF MEMORY. 
3.0 LOADING PROCEDURE 


1. ASSURE THAT THE LSI-11 IS _IN THE ODT og gare STATE. 
2. LOAD THE LOW OR HIGH SPEED READER WITH THE ABSOLUTE LOADER TAPE. 
3. TYPE THE ag CSR ADDRESS (177560-LOW OR 177550-HIGH) 


ARACTER 'L*. 

4. AFTER TAPE IS LOADED, i bod Dal BINARY TAPE INTO THE 
READER AND TYPE THE CHARACT 

5. IF THE ABSOLUTE LOADER HAS ALREADY BEEN LOADED orere ¢ . 3), 
THEN ONLY THE STARTING yet S OF THE ABSOLUTE LOADER A 
THE CHARACTER ‘°G’ NEED BE TYPED (WITH THE AAV BINARY TAPE 
IN THE APPROPRIATE READER). 


4.0 STARTING PROCEDURE 


1. MAKE SURE THE DEVICE BUS ADDRESS AGREE WITH THE 
DEFAULT VALUES DEFINED IN SECTION 7.1. IF NOT, CHANGE 
Trae ges AS DESIRED VIA THE ADDRESS/’ ODT COMMAN D. 


0 
5. THE PROGRAM WILL RESPOND BY TYPING THE PROGRAM TITLE. 
4.1 PROGRAM START 


200 STARTING ADDRESS OF THE ely TEST <WITH UP TO FOUR AAV11"S> 
204 STARTING ADDRESS OF THE RAMP LOOP 

210 STARTING ADDRESS OF THE STATIC CALIBRATION 

214 STARTING ADDRESS OF THE DYNAMIC CALIBRATION 

230 STARTING ADDRESS OF THE LOGIC TEST <WITH UP "0 SIXTEEN AAV11°S> 
240 STARTING ADDRESS FOR THE OPTION TESTER. 
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6.0 


6.1 


6.2 


earn 


SOFTWARE SWITCH REGISTER 
OPTIONS 
SWITCH OCTAL FUNCTION 
$W15=1 100000 re ON ERROR 
$W14=1 040000 LOOP ON TEST 
SW13=1 020000 INHIBIT ERROR TYPEOUTS 
SW11=1 004000 tte U ITERATIONS 
$W10=1 002000 BELL ON coats 
SwO9=1 001000 LOOP ON ERR 
Suoe=1 0004Xxx LOOP ON Teer IN SWR <7=0> 
CONTROL 


1. THE SOFTWARE ye REGISTER *SWREG’® (LOC. 176) CAN BE 
CHANGED BY USING THE ODT FACILITIES. 
2. 4 ooh sth REGISTER Rol BE se aad UNDER PROGRAM 


ROL KEY 
KEYBOARD OPERATION WILL T OUT THE CU RRENT CONTENTS 
AND ACCEPT NEW ym Suirch REGISTER DATA TERMINATED 
WITH A CARRIAGE RETU 
3. ONCE THE ODT MODE HAS “BEEN cot che BECAUSE OF AN 
ERROR CONDITION wie BIT15 § t (HALT ON ERROR), STEP #2 


ABOVE IS OF NO VALUE, SO RESO 
eT at REGISTER IF DESIRED BEFORE TYPING 
4. IF a3 ‘era 1S PERFORMING RESET INSTRUCTIONS, SEVERAL 
"CONTROL & G' COMMANDS MAY BE NECESSARY TO BE ACKNOWLEDGE 
BY THE OBROGRAM. 


ERROR REPORTING 


ERROR COMMENT 


ALL rae ARE oats ar”, WITH AN ENGLISH LANGUAGE lee 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION 

THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 


ERROR DATA 
*ERRPC Lists ADDRESS WHERE THE ERROR WAS DETECTED 
*BUSADR AV11 BUS REG ADDRESS OF CONCERNED OPERATION 
EXPCT DATA THAT WAS EXPECTED 
RCVD DATA THAT WAS RECEIVED 


*ALWAYS REPORTED 


SEQ 0004 
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7.0 MISCELLANEOUS 7 SEQ 0005 


| 
(7.1 AAV11 BUS ADDRESS MODIFICATION 


MODIFY LOCATION "SBASE* (LOC. 1250) IF BASE BUS ADDRESS IS NOT 170440. 


*NOTE: USE THE LSI-11 ODT FACILITIES TO MODIFY THIS LOCATIONS 
‘AFTER PROGRAM LOAD. 


7.2 XXDP/APT NOTES 


THIS DIAGNOSTIC CHAINABLE UNDER a (REQUIRES 8K OR MORE). 
THIS DIAGNOSTIC S$ SUPPORT “‘APT’’ BUT HAS NOT BEEN RUN UNDER IT. 
7.3 POWER FAIL 


A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 


7.4 MULTIPLE AAV11 INTERFACE TESTING 


THIS PROGRAM DOES ‘‘AUTO=SIZE** THE NUMBER OF ry i= S CONNECTED. 
THIS ohare it WILL TEST SEQUENTIALLY UP TO 4 AAV11 — 
WHEN STARTED AT 200 AND 16. WHEN STARTED AT ADDRESS 2 
WITH CONTIGUOUS BUS ADDRESSES. THE ‘‘AUTO-SIZE** CAN BE [NHIBITED 
* BY THE OPERATOR SETTING BIT 15 OF LOCATION ‘‘SENV (LOC. 1214) 
LOADING LOCATION ‘SBASE* WITH THE ADDRESS OF THE ONE UNIT TO ae TESTED. 


7.5 RESTRICTIONS 
NONE 
8.0 EXECUTION TIME 


IS 
DOE 


EXECUTION TIME RANGES FROM ABOUT 5 SECONDS WITH NO ITERATIONS 

TO ABOUT 20 SECONDS WITH ITERATIONS ENABLED WITH ONE AAV11 CONNECTED. 

AN END PASS MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON ALL SELECTED UNITS. 
END OF PASS WILL ALSO REPORT TOTAL ERROR COUNT AND ANY UNIT'S THAT HAD ERRORED. 
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PROGRAM TEST DESCRIPTIONS 


LOGIC TESTS (SA 200) 
THIS DIAGNOSTIC Sag Heda A hy A olor Yor ta TESTS DESIGNED 
TEST TION THE AAV11 DAC 


STAN 
WHEN STARTED AT LOCATION 200, THE PROGRAM WILL AUTO=SIZE UP TO 4 
AAV11°S TO BE TESTED. 


RAMP LOOP (SA 204) 


THIS LOOP IS PROVIDED A METHOD FOR THE OPERATOR TO INSPECT AND VERIFY 
ANALOG OPERATION OF ALL DAC BITS. THE LOOP ALSO ENABLES THE OPERATOR TO VERIFY 


THAT NO TWO DAC'S ARE INTERCONNECTED. 

STATIC CALIBRATION LOOP (SA 210) 

THIS LOOP PROVIDES THE OPERATOR WITH A SIMPLE LOOP_FOR 

THE INDIVIDUAL DAC BITS AND THE OPERATION OF DAC #3 DIG 
THE VALUE OF THE SWITCH REGISTER IS LOADED INTO ALL DAC 
AND THE OUTPUT VOLTAGE CAN BE MONITORED. 


DYNAMIC CALIBRATION LOOP (SA 214) 


V 
I 
¢ 


THIS PROVIDES THE OPERATOR WITH A LOOP THAT LOADS THE Bay OF THE 


abe REGISTER INTO THE DAC"S AND THEN AFTER A DELAY RS 
THE DAC REGISTERS. THIS PROVIDES A SWITCHING PATTERN BETWEEN THE 
SELECTED VOLTAGE AND 0. 


EXTENDED UNITS (SA 230) 
SAME FUNCTION AS LOGIC TEST BUT ON 16. AAV11'S 
TESTER SUPPORT (SA 240) 


INITIALL PERFORMS THE LOGIC TESTS AND THEN EMPLOYS A KNOWN 

GOOD A_TO D CONVERTER TO AID IN ADJUSTING THE POT'S ON THE 

AAV11 BOARD. THE OPERATOR IS INFORMED AS TO WHICH POT TO ADJUST 
AND WHICH D TO A CONVERTER IS TESTED. 


REVISION HISTORY 

DVAAA~A DIAGNOSTIC WAS MODIFIED TO RUN ON 11/21 are Tae 

BY LOWERING PRIORITY 7 TO 6 AND ALSO ADDIING A MACRO CAL 

- INIT TO CNMAC2.SML LIBRARY AND THE NAME WAS CHANGED TO. CNAAA-AO. 


LISTING 


ERIFYING 
uA L OUTPUT BITS. 


SEQ 0006 
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| 
| 5687 TITLE MAINDEC~ 11=CNAAAA AAV11 DIAGNOSTIC 
; s*COPYRIGHT (C) 1982 
1 @) :*DIGITAL EQUIPMENT CORP. 
| Cy ;#MAY NARD, MASS. 01754 
| (1) ; *PROGRAM BY RAYMOND SHOOP 
| ‘THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
(1) ; *PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 
5688 *SBTTL BASIC DEFINITIONS 
(1) :*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
(1) 001100 STACK= 1100 
(1) .EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
C1) -EQUIV IOT,SCOPE ::BASIC DEFINITION OF SCOPE CALL 
(1) ; MISCELLANEOUS DEFINITIONS 
(1) 000011 HT= 11 ::CODE FOR HORIZONTAL TAB 
(1) 000012 LF= 12 ::CODE FOR LINE FEED 
(1) 000015 CR= i5 3:CODE FOR CARRIAGE RETU 
(1) 000200 CRLF= 200 ::CODE FOR CARRIAGE + a FEED 
(1) 177776 PS= 177776 : PROCESSOR STATUS WORD 
(1) .EQUIV PS,PSW 
(1) 177774 STKLMT= 177774 : 3 STACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 *PROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSWR= 177570 I HARDWARE SWITCH REGIST . 
(1) 177570 DDISP= 177570 HARDWARE DISPLAY REGISTE 
(1) Net THE FOLLOWING ot’ START ADDRESS FOR SBC 14021 IS ADDED 
(1) 170000 ODTST= 17 
(1) ;*GENERAL PURPOSE REGISTER DEFINITIONS 
(1) 000000 RO= 20 7:GENERAL REGISTER 
(1) 009001 R1= “1 ::GENERAL REGISTER 
(1) 000002 R2= %2 ::GENERAL REGISTER 
(1) 000003 R3= 23 Z:GENERAL REGISTER 
(1) 00004 R4= 24 ::GENERAL REGISTER 
(1) 000005 RS5= 25 ::GENERAL REGISTER 
(1) 000006 R6= 26 ::GENERAL REGISTER 
(1) 000007 R7= %7 ::GENERAL REGISTER 
(1) 000006 SP= 26 ::STACK POINTER 
(1) 000007 PC= 17 ::PROGRAM COUNTER 
(1) s*PRIORITY LEVEL DEFINITIONS 
(1) 000 PRO= 0 ::PRIORITY LEVEL 0 
(1) 000040 PRiz ::PRIORITY LEVEL 1 
(1) 000100 PR2= 100 ::PRIORITY LEVEL é 
(1) 000140 PR3= 140 ::PRIORITY LEVEL 
(1) 000200 PR4= 200 *:PRIORITY LEVEL 4 
(1) 000240 PRS= 240 s:PRIORITY LEVEL 5 
(1) 000300 PR6= 300 ::PRIORITY LEVEL 6 
(1) 000340 PR7= 340 ::PRIORITY LEVEL 7 
(1) :*'"SWITCH REGISTER’ SWITCH DEFINITIONS 
(1) 100000 Sw15= 100000 
(1) 040000 Sw14= 40000 
(1) 020000 Sw13= 20000 


arn re eae reads toes atdame oeeapskioamaieaaten 


SEQ 0007 
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BIT DEFINITIONS (BITOO TO B1T15) 
100000 


oooo 
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3*BASIC *‘CPU"’ TRAP VECTOR Rta or 
ERRVEC= 


RESVEC= 
TBITVEC 


4 
10 
=14 


Te 


ME OUT AND OTHER ERRORS 
# RESERVED AND ILLEGAL INSTRUCTIONS 


SEQ 0008 
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CNAAAA.P11 27=DEC=82 14:25 BASIC DEFINITIONS SEQ 0009 
| (1) 000014 TRIVEC= 14 3; TRACE TRAP 
(1) 000014 BPTVEC= 14 ;;BREAKPOINT TRAP (BPT 
i, 000020 IOTVEC= 20 3 INPUT/OUTPUT TRAP (LOT) **SCOPE** 
(1) 000024 PWRVEC= 24 R FAIL 
(1) EMTVEC= 30 i SEMULATOR TRAP (EMT) **ERROR** 
(1) 000034 TRAPVEC=34 ;“"TRAP*’ TRAP 
(1) 000060 TKVEC= 60 iTTY KEYBOARD VECTOR 
(1) 000064 TPVEC= 64 TTY PRINTER VECTOR 
(1) ;eeeee THE FOLLOWING BREAK VECTOR AND ye CLOCK VECTOR ARE INCLUDED 
(1) 000100 LKVEC= 100 s3Ll 4 CLOCK VECTO 
(1) 000140 BRKVEC= 140 3;BREAK VECTOR 
stn 000240 PIRQVEC=240 :;PROGRAM INTERRUPT REQUEST VECTOR 
5690 174440 ABASE=174440 sREV:0 


nS se 


‘nes SS SSS Sn — 
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AONAMAA.PIT 2 7-DEC~82 14:25 BASIC DEFINITIONS - SEQ 0010 
3 3692 
se94 -SBTTL OPERATIONAL SWITCH SETTINGS 
(1) ie SWITCh USE 
(1) 7* @eeeen @£&£ £ £ £& &; ;#§#ésss®eeereeeeneeeeeeee 
(1) ie 15 HALT ON ERROR 
(1) :* 14 LOOP ON TEST 
(1) :* 13 INHIBIT ERROR TYPEOUTS 
(1) be 17 INHIBIT ITERATIONS 
(1) ie 10 BELL ON ERROR 
(1) it 9 LOOP ON ERROR 
(1) :* 8 LOOP ON TEST IN SWR<7:0> 
5695 “SBTTL TRAP CATCHER 
(1) 000000 .=0 
(1) ;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT" 
(1) T*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT 
(1) suite i LOCATION, 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
(1) 000174 000000 DISPREG: .WORD 0 ::SOFTWARE DISPLAY REGISTER 
(1) 000176 000000 SWREG: WORD 0 TESOFTWARE SWITCH REGISTER 
(1) .SBTTL STARTING ADDRESS(ES) 
(1) 000200 000137 001450 IMP @NBEGIN ;; JUMP TO STARTING ADDRESS OF PROGRAM 
5696 000204 000137 006570 JMP —s FULRMP ;JUMP TO FULL RAMP LOOP 
5697 000210 000137 006656 JMP —s STATIC ‘JUMP TO STATIC DAC CALIBRATION 
3698 000214 000137 006716 JMP ss DYNCAL :JUMP TO DYNAMIC DAC CALIBRATION 
5700 000230 .=230 
5701 000230 000137 001440 JMP = ADDOK ;JUMP AND ENABLE EXTENDED U'ITS <16.> 
5703 000240 .=240 
3704 000240 000137 001432 JMP TESTER ;JUMP TO TESTER SA. 
5706 000100 .=100 
5707 000100 000104 000200 000002 104,200,2 3B EVENT SAFE GUARD 


ce 


- 
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| MAINDEC=11=CNAAA=A AAV 
/CNAAAA.P11—-27=DEC=82 14:25 STARTING MOC ORESS CE $) SEQ 0011 
5709 
5710 .SBTTL ACT11 HOOKS 
(2) FERRARA EEE ERE EEE EEE EERE EKEEEEKKEEEEEEEE 
Pp ‘HOOKS REQUIRED BY ACT11 
(1) 000106 $SVPC=. sSAVE PC 
(1) 000046 .=46 
(1) 000046 005340 SENDAD 3:1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
(1) 000052 000000 “WORD 0 j2)SET LOC. 332 TO ZERO 
(1) 000106 > =$SVPC +: RESTORE P 
5711 001000 *=1000 
S712 .SBTTL APT PARAMETER BLOCK 
(2) ici iiii titi tii iititiiiii iii iii iiiiiiiiiiiiiiii titi i iii i iis, 
(1) Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) FARRAR EERE EEEEERE EER EEEEKEEREKREAEEEREEEEREEEEEEEEEEEEEEEE 
(1) 001000 .$X=. SAVE CURRENT LOCATION 
(1) 900024 *=24 :3SEt POWER FAIL TO POINT TO START OF PROGRAM 
(1) 000024 000200 300 :3FOR APT START UP 
(1) 000044 244 :POINT TO APT INDIRECT ADDRESS PNTR. 
(1) 000044 001000 SAPTHDR 2:POINT TO APT HEADER BLOCK 
(1) 001000 "=.$X  2:RESET LOCATION COUNTER 
(2) UTI T TTT LI LTTE LT TEETER E ELLE LLL 
(1) :SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
(1) S INTERFACE SPEC. 
(1) 001000 SAPTHD: 
(1) 001000 000000 $HIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(1) 001002 001174 $MBADR: .WORD $MAIL ; SADDRESS OF APT MAILBOX (BITS 0-15) 
(1) 001004 000030 $TSTM: .WORD 30 S:RUN TIM OF LONGEST TEST 
(1) 001006 000010 $PASTM: .WORD 10 3: RUN TIME IN SECS. OF 1ST PASS-ON 1 UNIT (QUICK VERIFY) 
(1) 001010 000030 SUNITM: .WORD 30 ADDITIONAL RUN TIME (SECS) OF’ A PASS FOR EACH ADDITIONAL UNIT 


001012 000031 .. - WORD SeTEND-ShAIL72 3 ;LENGTH MAILBOX-E TABLE (WORDS) 


c-  _—__ - -—--- ee ar ee 
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CNAAAA.P11 27-DEC-82 n 225 COMMON TAGS SEQ 0012 


| 
| 5713 .SBTTL COMMON TAGS 
(2) FERRARA EEEEEEEEEEEEEREEEEEEEREEREEEEEREEEEEREEEKEKEEEE 
| :*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
(1) **USED IN THE PROGRAM. 
(1) 001100 .=1100 
(1) 001100 SCMTAG: z:START OF COMMON TAGS 
(1) 001100 000000 .WORD 0 
(1) 001102 000 STSTNM: .BYTE 0 z:CONTAINS THE TEST NUMBER 
(1) 001103 SERFLG: .BYTE 0 s: CONTAINS ERROR FLAG 
(1) 001104 000000 SICNT: .WORD 0 :: CONTAINS ETE TEST ITERATION COUNT 
(1) 001106 000000 SLPADR: .WORD 0 +:CONTAINS SCOPE LOOP ADDRESS 
(1) 001110 000000 $LPERR: . 0 t:CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 000000 SERTTL: .WORD 0° s:CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 00 SITEMB: .BYTE 0 | ¢ }EECONTAINS ITEM CONTROL BYTE 
(1) 001115 SERMAX: .BYTE 1 ae :: CONTAINS MAX. ERRORS PER TEST 
(1) 001116 000000 SERRPC: .WORD 0 *:CONTAINS PC OF LAST ERROR INSTRUCTION 
(1) 001120 000000 $GDADR: .WORD 0 ::CONTAINS ADDRESS OF ‘GOOD' DATA 
(1) 001122 000000 SRDADR: .WORD 0 S:CONTAINS ADDRESS OF °BAD’ DATA 
(1) 001124 000000 $GDDAT: .WORD 0 *:CONTAINS ‘GOOD’ DATA 
(1) 001126 000000 $BDDAT: .WORD 0 *:CONTAINS ‘BAD® DATA 
$2 001130 000000 SWORD oy + :RESERVED=-NOT TO BE USED 
1) 001132 000000 “WORD O 
(1) 001134 000 SAUTOB: .BYTE 0 ZZAUTOMATIC MODE INDICATOR 
(1) 001775 0 $INTAG: .BYTE 0 ‘: INTERRUPT MODE INDICATOR 
(1) OC 5 OC 20 “WORD 0 
(1) or “ 17 WR:  .WORD DSwWR i SADDRESS OF SWITCH REGISTER 
(1) 001142. 177 DISPLAY: .WORD DDISP TZ:ADDRESS OF DISPLAY REGISTER 
(1) 001144 17 TKS: 177560 ::TTY KBD STATUS 
(1) 001146 177562 $TKB: 177562 ::TTY KBD BUFFER 
(1) 001150 177564 $TPS: 177564 siTTy PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 [:TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 000 $NULL: .BYTE 0 [CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS: .BYTE 2 
(1) -CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 012 SFILLC: .BYTE 13 INSERT FILL CHARS. AFTER A “LINE FEED" 
(1) 001157 000 STPFLG: .BYTE 0 33""TERMINAL AVAILABLE" FLAG (BITeO7 cbs YES) 
(1) 001160 000000 $TIMES: 0 *:MAX. NUMBER OF ITERATIONS 
(1) 001162 000000 SESCAPE :0 +: ESCAP c ON ERROR ADDRESS 
(1) 001164 177607 000377 $BELL: .ASCIZ <207><377><377> ":FeoDe FOR BEL LL 
(1) 001170 077 $QUES: <ASCII UESTION 
(1) 001171 015 $CRLF: ASCII ott, i CARRIAGE RETURN 
(1) 001172 000012 SLF: “ASCIZ <12> [LINE FEED 
(2) SERRA EEE AEE EERE AREER REAR EEE REE 
‘$} *SBTTL APT MAILBOX-ETABLE 
(3) 3 REEAAAEAAEEAEEAAEEEEEAEAAEAAAAAEAAEAAEEEAAEAAEARERERERAREEEEEEEEE 
(2) “EV 
(2) 001174 $MAIL: z;APT MAILBOX 
(2) 001174 000000 SMSGTY: .WORD AMSGTY i MESSAGE TYPE CODE 
(2) 001176 000000 SFATAL: .WORD AFATAL 3; FATAL ERROR NUMBER 
(2) 001200 000000 $TESTN: .WORD ATESTN ::TEST NUMBER 
(2) 001202 000000 $PASS: .WORD APASS ::PASS COUNT 
(2) 001204 000000 SDEVCT: .WORD ADEVCT : DEVICE COUNT 
(2) 001206 000000 SUNIT: :WORD AUNIT ::1/0 UNIT NUMBER 


N 1 
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+ MAINDEC=11=CNAAA=A AV11 
/CNAAAA.P11 a7-DEC=82 1 4125 APT MAILBOX-E TABLE SEQ 0013 
(2) 0C1210 000000 SMSGAD: .WORD AMSGAD ;; MESSAGE Stecte’ 
(2) 001212 000000 SMSGLG: .WORD AMSGLG esMESSAGE L LENGTH 
(2) 001214 SETABLE: 3;APT ENVIRONMENT TABLE 
(2) 001214 000 SENV: .BYTE AENV : ENVIRONMENT BYTE 
(2) 001215 000 SENVM: -BYTE AENVM 
(2) ;ENVIRONMENT MODE BITS 
(2) 001216 000000 $SUREG: ~WORD ASWREG ;;APT SWITCH REGISTER 
(2) 001220 000000 $USWR: .WORD AUSWR shy SWITCHES 
(2) 001222 000000 $CPUOP: .WORD ACPUOP CPU TYPE, Pou Tere 
(2) 3* BITS vice | CPU 
(2) s* 1/04 Yor. "11/05: 02, 11/20=03,11/40=04,11/45=05 
(2) 3* 11770206, PDQ=07, 
(2) s* BIT 10=REAL TIME CLOCK 
(2) :* BIT 9=FLOATING POINT _— 
(2) 2* BIT 8=MEMORY MANAGEMENT 
(2) 001224 000 SMAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
(2) 001225 000 $MTYP1: .BYTE AMTYP1 ;;MEM. TYPE,BLKA#1 
(2) 3* MEM.TYPE BYTE == (HIGH BYTE) 
(2) 3* 900 NSEC CORE=001 
(2) s* 300 NSEC BIPOLAR=002 
(2) 3* 500 NSEC a 
(2) 001226 000000 SMADR1: .WORD AMADR1 ;;HIGH ADDRESS ,BLK#1 
(2) ; Hed MEM.LAST ADDR. = BYTES,THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
(2) 001230 000 2 SMAMS2: .BYTE AMAMS2 S:HIGH ADDRESS,M.S. BYTE 
(2) 001231 000 $MTYP2: .BYTE AMTYP2 33 EM. & 
(2) 001232 000000 $MADR2: .WORD AMADR2 png ADDRESS. BLK#2 
(2) 001234 000 $MAMS3: .BYTE AMAMS3 3 :HIGH DDRESS.M.S.BYTE 
(2) 001235 000 SMTYP3: .BYTE AMTYPS ;;MEM TYPE. BLKA3 
(2) 001236 000000 SMADR3: .WORD AMADR3S ;;MEM.LAST ADDRESS ,BLK&#3 
(2) 001240 000 SMAMS4: .BYTE AMAMS4 ;;HIGH sy igs aa BYTE 
(2) 001241 000 SMTYP4: .BYTE AMTYP4 ;;MEM.TYPE,BLK 
(2) 001242 000000 SMADR4: .WORD AMADR4 Tape LAST ADDRESS, BLK#4 
(2) 001244 009000 $VECTi: .WORD AVECT1 ;;INTERRUPT VECTOR#1,BUS PRIORITYA#1 
(2) 001246 000000 $VECT2: .WORD AVECT2 :;INTERRUPT VECTOR#2BUS PRIORITY#2 
(2) 001250 174440 $BASE: .WORD ABASE 
(2) 3sBASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001252 000000 SDEVM: .WORD ADEVM ;;DEV 
$6 001254 000000 $CDWi: .WORD ACDW1 ;; CONTROLLER DESCRIPTION WORD#1 
(2) 


001256 SETEND: 
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ERROR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 


B 2 
DIAGNOSTIC MACY11 30(1046) 27=DEC=82 14:27 PAGE 59-3 | 
} 


SEQ 0014 | 


:*THIS TABLE freee THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
7*THE INFORMATION IS OBTAINED BY USING THE INDEX hy F 
S*LOCATION SI1EMB. THIS weit d INDICATES WHICH ITEM IN THE iho IS PERTINENT. 


3 *NOTE1: IF SITEM 


THE ONLY PERTINENT DATA IS (SE 


+ NOTED: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
3* EM ::POINTS TO THE ERROR MESSAGE | 
3 DH POINTS TO THE DATA HEADER 
tt DT SPOINTS TO THE DATA 
it OF :IPOINTS TO THE DATA FORMAT 
SERRTB 

ITEM 1, 

EM1 sBUT TIME-OUT WHEN REF. A DAC ADDRESS 
DH2 SERRPC BUSADR 
OTT *$ERRPC SBDDAT 
DFO 
s1TEM 2 
EM2 :DAC #0 REGISTER IN ERROR | 
DH1 TERRPC SUSADR GOOD BAD 
DT S$ERRPC DACO  $GDDAT $BDDAT 
s1TEM) (3 
EM3 :DAC #1 REGISTER IN ERROR | 
DH1 TERRPC BUSADR GOOD BAD 
DTS S$ERRPC DAC] $GDDAT S$BDDAT 
SITEM 
EMG :DAC #2 REGISTER IN ERROR 
DH1 TERRPC BUSADR GOOD BAD 
DT SSERRPC DAC2  $GDDAT $BDDAT 
sITEM) 65 
EMS sDAC #3 REGISTER IN ERROR 
DH1 TERRPC BUSADR GOOD BAD 
DTS > SERRPC Baca SGDDAT $BDDAT 
SITEM 6 
EMG :SELECTED DAC OFFSET POT 1$ NOT ADJUSTED CORRECTLY 
DH6 SERRPC BUSADR EXPECT WAS SPREA 
D6 ?SERRPC DACBAD $GDDAT SBDDAT SPREAD 


MAINDEC-11-CNAAA=A 


1 
1 
1 
1 





DIAGNOSTIC 


; ITEM 


; ITEM 


;1TEM 


7 ITEM 


7 1TEM 


3; ITEM 


MACY11 5 tae 
ERROR POINTER TABLE 


C 2 
27=DEC-82 14:27 PAGE 60 


SEQ 0015 


A334 he 4 DAC GAIN POT IS NOT oat 2 224 CORRECTLY 
ZERRPC BUSADR EXPECT WAS SPREAD 
ZSERRPC DACBAD $GDDAT $BDDAT SPREAD 


SELECTED DAC_HAS A _LINEARITY PROBLEM 
sERRPC BUSADR EXPECT WAS SPREAD 
ZSERRPC DACBAD $GDDAT $BDDAT SPREAD 


3+15 VOLT SUPPLY IS INCORRECT 
ZERRPC BUSADR EXPECT WAS SPREAD 
;SERRPC DACBAD S$GDDAT $B8DDAT SPREAD 


3715 VOLT SUPPLY IS a ae 
SERRPC BUSADR EXPECT WAS SPREAD 
;SERRPC DACBAD S$GDDAT $BDDAT SPREAD 


sDAC_#3 DIGITAL OUTPUT BITS IN ERROR 
ZERRPC_ BUSADR GOOD BAD 
ZSERRPC DAC3 S$GDDAT $B8DDAT 


WAKE UP OPERATOR AND ADJUST THE POT 


OFFSET TO NEXT AAV11 ADDRESS 


— pnt enero titan ibibcagee 


D2 
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MAINDEC=11=CNAAA=A AAV11 DIAGNOSTIC MACY11 + AP aa 
CNAAAA.P11 27-DEC=82 14:25 ERROR POINTER TABLE SEQ 0016 

5798 

5827 001432 005257 007420 TESTER: INC WFTST s INDICATE TESTER MODE 

5828 001436 000411 BR BEGIN 

5829 001440 012737 090021 007006 ADDOK: MOV #17. ,NUMBOK sLOAD 16 MAX UNITS 

5830 001446 000403 BR BEGINA 

5831 001450 012737 000005 007006 BEGIN: MOV #5. ,NUMBOK sLOAD 4 MAX UNITS 

5832 005037 007020 BEGINA: CLR WFTST 

5833 005037 007012 BEGIN1: CLR TEMP 

5834 005037 001420 CLR EVER 

5835 000005 RESET 

5837 ~SBTTL_ INITIALIZE THE COMMON TAGS 
(1) 33CLEAR THE COMMON TAGS (SCMTAG) AREA 
(1) 012706 001100 MOV #SCMTAG,R6 zsFIRST LOCATION TO BE CLEARED 
(1) 005026 CLR R6)+ 3;CLEAR MEMORY LOCATION 
(1) 022706 001140 CMP #SWR,R6 >;00 
(1) 001374 — -~6 LOOP BACK IF NO 
(1) 012706 001100 #STACK,SP ‘SETUP THE STACK POINTER 
(1) : INITIALIZE A FEW VECTORS 
(1) 00 012737 011524 000020 #SSCOPE ,a#IOTVEC +3 10T VECTOR FOR SCOPE ROUTINE 
(1) 0015 012737 000300 000022 MOV #PR6 ,a#LOTVEC+2 ;:LEV 
(1) 012737 012006 000030 MOV #SERROR ,@WEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
He 001536 012737 000300 000032 B1T02 MOV #PR6,@HEMTVEC+2 ; LEVEL 6 
(1) 001544 012737 014412 000034 MOV #STRAP ,A#TRAPVEC ; hang VECTOR FOR TRAP CALLS 
(1) 001552 012737. 000300 000036 MOV #PR6, a#TRAPVEC+2;L 
(1) 001560 012737 012336 000024 MOV #SPWRDN, a#PWRVEC : pOMER FAILURE VECTOR 
(1) 001566 012737 000300 000026 MOV #PR6, a#PWRVEC +2 sel 
(1) 001574 005037 001160 CLR STIMES ‘INI TIALIZE NUMBER OF ITERATIONS 
(1) 001600 005037 001162 CLR SESCAPE Z:CLEAR THE a ON ERROR ADDRESS 
(1) 001604 112737 000001 001115 MOVB #1, SERMAX 3 ALLO WW ONE ERROR PER TES 
(1) 001612 012737 001612 001106 MOV #.«SLPADR 23IN 1 tase THE "LOOP wien FOR SCOPE 
(1) 001620 012737 001620 001110 MOV e SLPERR P THE wrt LOOP ADDRESS 
(2) 33SIZE FOR A HARDUARE SWITCH aesiit TER. IF NOT FOUND OR it 
(2) ;;EQUAL TO A *’=1"", SETUP FOR A SOF TWARE SWITCH REGISTER. 
(2) 1626 013746 000004 MOV @#ERRVEC,-(SP) ; SAVE ERROR VECTOR 
(2) 001632 012737 001666 000004 MOV #64$ ,aWERRVEC 238 SET UP ERROR VECTOR 
(2) 001640 012737 177570 001140 MOV #OSWR,SWR sSETUP FOR A HARDWARE SWICH REGISTER 
(2) 001646 tela 177570 001142 MOV #DDISP, aati otd ZZAND A HARDWARE DISPLAY REGISTER 
(2) 001654 022777 177777 177256 CMP #-1 ,aSWR zs TRY TO REFERENCE HARDWARE SWR 
(2) 001662 001015 BNE 66$ 3;BRANCH IF NO TIMEOUT TRAP oe ES 
(2) 2 sAND THE Er SWR I Se 
(2) 001664 000403 BR 65$ BRANCH IF NO TIMEOUT 
(2) 001666 012716 001674 64$: MOV #65$, (SP) SISET UP FOR TRAP RETURN 
(2) 001672 000002 RTI 
(2) 001674 012737 000176 001140 65$: MOV #MSWREG, BO alae TO SOFTWARE SwWR 
(2) 001702 012737 000174 001142 MOV *DIsPREG, DISP 
¢? 001710 012637 000004 66$: MOV (SP) + BPERRVEC ” s :RESTORE ERROR VECTOR 
(2) 001714 005037 001202 CLR SPASS ssCh EM PASS COUN 
(2) 001720 132737 000200 001215 B1TB #APTSIZE ,SENVM TEST USER SIZE UNDER APT 
(2) 001726 001403 BEQ 7$ 7:YES,USE NON-APT SWITCH 
oS) ates 012737 001216 001140 673 MOV #SSWREG, SWR :NO,USE APT SWITCH REGISTER 

5838 001736 005037 007004 CLR BADUNT RESET BAD INDICATOR 

5839 001742 000137 002044 JMP INIT1 
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MAINDEC=11=CNAAA@A AAV11 
CNAAAA.P11—- 27=DEC=82 14:25 INITIALIZE THE COMMON TAGS SEQ 0017 
5841 
284 ; SUBROUTINE TO LOAD A TRAP CATCHER 
5844 001746 012702 000252 LDTRAP: MOV #252,R2 sLOAD R2 
5845 001752 012701 000250 MOV #250.R1 [LOAD R1 
| 5846 001756 010221 S$: MOV R2,(R1)+ *LOAD .+2 
5847 001760 005021 CLR (Ri)+ [LOAD HALT 
5848 001762 010102 V R1,R2 LOA 
5849 001764 005722 TST (Rd)+ *BUMP R2 
5850 001766 020227 001002 CMP R2,#1002 *TEST FOR LAST 
3851 001772 001371 BNE 5$ ‘BR UNTIL DONE 
5853 sAND LOAD DEVICE ADDRESSES LOCATIONS 
5855 001774 013700 001250 MOV SBASE ,RO :GET BASE ADDRESS 
5856 002000 010037 001422 MOV RO,DACO ;LOAD X ADDRESS 
5857 002004 010037 001424 MOV RO.DAC1 SLOAD Y ADDRESS 
5858 002010 010037 001426 MOV RO. DAC2 LOAD DAC #2 
5859 002014 010037 001430 MOV RO.DAC3 {TOAD DAC #3 
5860 002020 062737 000002 001424 ADD #2.DAC1 
5861 002026 062737 000004 001426 ADD #4.DAC2 
5862 002034 062737 000006 001430 ADD #6.DAC3 
5863 002042 000207 RTS PC EXIT 
5871 002044 004737 001746 INIT1: JSR PC,LDTRAP 
$872 002050 005737 007012 TST TEMP ;TEST IF START OR RESTART 
5873 002054 001012 BNE MTEST TRESTA 
5874 002056 005737 000042 TST an2 TEST IF MONITOR 
5875 002062 001007 BNE MTEST BR IF 
5876 002064 005737 007020 TST WETST TEST IF ON TESTER 
5877 002070 001402 BEQ 1$ ‘BR IF NOT 
5878 002072 104401 TYPE 
5879 002074 010011 MSGSW :TELL OPERATOR ABOUT TESTER SWITCHES 
5880 002076 104401 1$: TYPE [CALL MESSAGE PRINTER VIA ‘EMT 


5881 002100 007040 TITLE ;TYPE PROGRAM HEADER. 





MAINDEC=11-CNAAA~A 


CNAAAA.P11 


002102 


27-DEC-82 


013737 


012737 


001214 
007006 


001206 


001420 
007020 


001206 


001206 
100000 
001420 
001206 


000001 


DIAGNOSTIC 


001126 


000004 
001126 


001206 


001420 
001420 


001206 


007010 


MACY11 30(1046) 


-SBTTL DETERMINE THE NUMBER OF 


MTEST: MOV SBASE , SBDDAT 
CLR MASKNM 
CLR SUNIT 
MOV #2$, ERRVEC 
1$: TST a$BODAT 
ADD VADDR, SBDDAT 
INC SUNIT 
TST SENV 
BMI 3$ 
CMP NUMBOK , $UNIT 
BNE 1$ 
BR 3$ 
2$: CMP (SP)+, (SP)+ 
TST SUNIT 
BNE 3 
ERROR 1 
BR TST1 
3$: TST EVER 
BMI 4$ 
TST WFTST 
BNE 6$ 
TYPE 
FOUND1 
V SUNIT,-(SP) 
TYPOS 
BYTE 2 
-BYTc O 
TYPE 
FOUND2 
6$: MOV SUNIT, EVER 
BIS #BiT15, EVER 
4$: CMPB —s- EVER, SUNIT 
BEQ 5$ 
ERROR 13 
5$: CLR $UNIT 
CLR SDEVCT 


JSR PC,LDTRAP 
MOV #B1T0,MASKNM 


F 2 
27-DEC-82 14:27 PAGE 63 


AAV11 ON THIS SYSTEM 
:GET THE BASE ADDRESS 


sCLEA # 

;LOAD TRAP RETU 

sTEST IF ADDR EXIS 

;UPDATE THE BUS ADDRESS 

UPDATE UNIT COUNT 

sTEST IF ‘DO NOT SIZE 

3BR IF N EING 

sTEST IF MAX. NUMB 

3sBR IF 

3778R IF 

;CLEAN T A 

sTEST IF 

sBR IF SOME ARE THERE 

;BASE ADDRESS sees AN BUS TRAP 
31S SBASE COR 


STEST IF # HAS BEEN. * REPORTED 
:BR IF ITH 

STEST IF TESTER MODE 

3BR IF TESTER 


;TELL OPERATOR THE # OF AAV11°S 


sSAVE THE # OF AAV11°S FOR LATER 
3SET “REPORTED # FLAG"’ 


Test IF ANY HAVE oT’ AWAY 

73BR IF ALL ARE STILL HERE 

EXISTING vue FAILED TO RESPOND NOW 
RESET UN UNIT Ley NTER 
LOAD TRAP CATCHER AND BUS ADDRESSES 
LOAD MASK NUMBER IF ERROR 


SEQ 0018 


|MAINDEC=11=CNAAA=A 
|CNAAAA.P11 


002406 
002414 


002456 
002460 


002526 


27-DEC-82 


000004 
012737 


000 
012737 


000004 
005037 


104002 


000004 
012737 


104002 
000004 


012737 


001362 


002340 


177072 


000006 
004530 
000006 


001124 


001124 


007777 


001124 


000100 


001124 


001124 


DIAGNOSTIC 


000004 


000004 
000004 


177022 
001126 
001126 


001124 


001126 
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DETERMINE THE NUMBER OF AAV11 ON THIS SYSTEM SEQ 0019 
33 REAKAERAAERAAAEARAAEAAEEKEKAEAAEKAAARAAAAAAAAAAAAEAREREEAREAERAEAEAAE 
S*TEST 1 TEST THAT THE AAV11 RESPONDS TO THE CPU 
SERRA RAEEAE EAE EE EERE EERE EEA EREAEAAAEAEAEAEREERREREAEEEEHEEERERE 
iéT1: SCOPE 
MOV #1$, ERRVEC ;LOAD BUS TRAP RETURN 
TST apaco STEST DAC #0 
TST aDACl :TEST DAC #1 
TST aDAC2 [TEST DAC #2 
TST aDAC3 ;TEST DAC #3 
BR 2$ 7;BR AND RESTORE Loc. 4 
1$: CMP (SP)+,(SP)+ [CLEAN THE STA 
ERROR 1 3ER ROR, BUS TIMEOUT WHEN ADDRESSING THE AAV11 
MOV #6 ,ERRVEC ‘LOAD LOC 
JMP REMAIN ‘oesr IF ANY OTHER'S 
2: MOV #6, ,ERKVEC [LOAD RETURN 
TTITITITTIITITLI TITTLE TLI TITLE LiL LLL Lick Leki 
;*TEST 2 TEST THAT DACO REGISTER CAN BE CLEARED 
SRR EEAEREREEEEEEREEEEEEEEEEEEAEERREEEAEERAEREEEEREREKEEEE 
i812: SCOPE 
CLR $GDDAT sLOAD EXPECTED 
MOV SGDDAT, aDACO ‘LOAD REG 
MOV @DACO, $BDDAT TREAD REG 
CMP SGDDAT, $BDDAT ; COM PARE 
BEQ TST3 ::BR IF EQUAL 
ERROR 2 SERROR, DACO REGISTER NOT = 0 
SERRA AEEEEEAEEEEAE TEETER AARAEAREAEEAEAERAEEREREREREREEREEEE 
TEST 3 TEST THAT DACO REGISTER CAN BE LOADED WITH #7777 
SRREEAAEEEEREEREREEEEEEAEERAEEEEEEAEAEEREEREREEEEEEEEEEEEEEREREREEE 
i813: SCOPE 
MOV #7777, SGDDAT :LOAD EXPECTED 
MOV $GDDAT, aDACO ‘LOAD REG 
MOV @DACO, $BDDAT TREAD REG 
CMP SODA. SBDDAT 3 COMP ARE 
BEQ TST4 72BR IF EQuU 
ERROR 2 C ERROR, DACO REGISTER NOT = 7777 
FF EAAREAAE RARER EEAEREEREEEEEE EEA EEEAEAEEAEEEEEAEEEAAEEAEEEEERREEE 
T*TEST 4 TEST THAT DACO REGISTER CAN HOLD A FLOATING 1 PATTERN 
FFARR AAA AEEAAEEEREREEEE EEE EEEREKRERERERAEAEEEERAEEEEAAEEEEEEREEEE 
TS14: SCOPE 
MOV #100 STIMES ::D0 100 ITERATIONS 
MOV #BIT11,$GDDA :LOAD EXPECTED 
1$: MOV $GDDAT, Hoth SLOAD DACO REGISTER 
MOV @DACO, $BDDAT TREAD THE REGISTER 
CMP SGDDAT, $BDDAT ‘COMPARE THE DATA 
BEQ 2$ ::BR IF SAME 
ERROR 2 sERROR, DACO pREGISTER FAILED TO HOLD A FLOATING 
2s: ASR $GDDAT *CHANGE THE D 
BNE 1$ ‘BR AND TEST MORE DATA 


+ - - --- > > + ---—- oo eee ee - i ne ee —_——- —— 
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MAINDEC=11=CNAAA@A AAV11 DIAGNOSTIC MACY11 30(1046) 27=DEC=82 14:27 PAGE 65 
(CNAAAA.PT1 = 27=DEC=82 14:25 14 TEST THAT DACO REGISTER CAN HOLD A FLOATING 1 PATTERN SEQ 0020 
5 
| a36? SERRA RAE A EAA A EEE EE ETE TERE EERE AEEEREREEERRERERERAETAREEEE 
rig? * S*TEST 5 TEST THAT DACO CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 
} (4) FERRE RARER AREA REE EE EERE EEE EERE EEAREREEREAEAEEEAERERERERRREE RES 
| (3) 002530 000004 TTS: SCOPE 
(2) 002532 «012737 000100 001160 MOV #100, $TIMES ::D0 100 ITERATIONS 
/ (1) 002540 012737 004000 001124 MOV #BIT11,$GDDAT ;LOAD EXPECTED 
(1) 002546 013777 001124 176646 MOV $GDDAT, aDACO ‘LOAD DACO 
| (1) 002554 017737 176642 001126 1$: MOV @DACO, $BDDAT TREAD THE REGISTER 
| == (1) 002562 «023737 «001124 ~+«001126 CMP SGDDAT, $BDDAT “COMPARE THE GOOD TO DACO 
| 2) 002570 +=001407 BEQ P23 ::BR IF THE SAME 
| (1) 002572 017737 176624 001126 MOV @DACO, $BDDAT sSAVE FOR TYPEOUT 
(1) 002600 104002 ERROR 2 *DACO FAILED TO HOLD A FLOATING 1 PATTERN 
(1) 002602 013777 001124 176612 MOV $GDDAT,aDACO SLOAD DACO AGAIN 
(1) 002610 006277 176606 2$: ASR aDACO :CHANGE THE DATA 
(1) 002614 006237 001124 ASR $GDDAT *CHANGE THE EXPECTED 
(1) 002620 001355 BNE 1$ ‘BR IF MORE DATA 
5967 FERRARA AAA EEEREREEEEEERERAE EER EREREEEREEERRAREREREREARERRERED 
(4) T*TEST 6 TEST THE ''SUB’’ INSTRUCTION WORKS ON DACO 
(4) SERRA ERA EEE EERAE AERA EE EEE EA AEEEAEREEAEARERERAAAEEAERRE EERE AEE ES 
(3) 002622 000004 TST6: SCOPE 
(2) 002624 012737 000010 001160 MOV #10,$TIMES 3:00 10 ITERATIONS 
(1) 002632 012737 007777 001124 MOV #7777, ,SGDDAT sLOAD EXPECTED 
(1) 013777 001124 176554 MOV $GDDAT, aDACO [LOAD DACO 
(1) 002646 162737 000001 001124 1S: SUB #1,$GDDAT :SUB A VALUE 
(1) 002654 162777 000001 176540 SUB #1,aDA [FROM EXPECTED AND DACO 
(1) 017737 176534 001126 MOV aDACO, $BDDAT [READ THE REGISTER 
(1) 002670 023737 001124 001126 CMP SGDDAT ,,SBDDATI + COMPARE 
(2) 002676 001404 BEQ 2$ ::BR IF SAME 
(1) 002700 104002 ERROR 2 ;THE SUB INSTRUCTION FAILED ON DACO 
(1) 002702 013777 001124 176512 MOV $GDDAT, aDACO ‘LOAD THE REGISTER AGAIN 
(1) 002710 005737 001124 2$: TST SGDDAT *TEST FOR MORE DATA 
(2) 002714 001354 BNE 1$ z:BR IF MORE DATA 
5968 FFARR RARAAEAERE EEE EE EEE EAE AREA AAERAAEEEAEEEEEEREEREREREEEEEE 
(3) S*TEST 7 TEST THAT DAC1 REGISTER CAN BE CLEARED 
(3) SF RARER EREAEAEAEEREREEETEREEEEAREAERAAAAAAAAREAAAREARARAAEE EERE ARS 
(2) 002716 000004 TST7: SCOPE 
5969 002720 005037 001124 CLR SGDDAT sLOAD EXPECTED 
5970 002724 013777 001124 176472 MOV SGDDAT, aDAC1 SLOAD DACI — 
5971 002732 017737 176466 001126 MOV = @DAC1, $BDDAT READ REG 
5972 002740 023737 001124 001126 CMP SGDDAT, SBDDAT " COMPAR 
5973 002746 001401 BEQ TST10 ::BR IF EQUAL 
5974 002750 104003 ERROR 3 SERROR, DAC1 REGISTER NOT = 0 
5975 FFARR AAAAAAEAAAAAEAAAAAETAARAAEEAAEAAAAAEAERAEEEARAAEAEAAEAAAREAES 
(3) T*TEST 10 TEST THAT DAC #1 REGISTER CAN BE LOADED WITH #7777 
(3) SERRA EE AERA AAA AREA AAA AAA AHEAEAAAARAREAAEARAAAAARAEAAARARAAA AA EEe 
(2) 002752 000004 T$110: SCOPE 
5976 002754 012737 007777 001124 MOV #7777, SGDDAT ZLOAD EXPECTED 
5977 002762 013777 001124 176434 MOV SGDDAT,aDaC} [LOAD DAC #1 
5978 002770 017737 176430 001126 MOV @DAC1,$BDDAT TREAD REG 
5979 002776 023737 001124 001126 CMP SGDDAT, SBDDAT : COMPARE 
5980 003004 001401 BEQ TST11 ::BR IF EQUAL 





co - — SSSR SSS 
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I 2 
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CNAAAA.P11 27-DEC=82 14:25 T10 TEST THAT DAC #1 REGISTER CAN BE LOADED WITH #7777 SEQ 0021 


5981 003006 104003 ERROR 3 sERROR, DAC1 REGISTER NOT = 7777 









(2) 003010 
1) 003012 


RARE AAA QA AAA AAA AOA AO OOO 
RQ et tf) IIIB BO 9 OY SS  @ PI 
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000004 
012737 


0 
001362 


000004 
012737 


001355 


000004 
012737 


001354 
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14:25 


000100 


001124 


001124 


000100 


001124 
176274 
001124 


176256 
001124 


000010 


2 
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001160 


001126 


001126 
176262 


001160 


001126 


176162 


PAGE 66 
TEST THAT DAC #1 REGISTER CAN BE LOADED WITH #7777 S€Q 0022 


FRRAERAAAARAARA AERA TERETE EEE EERE ETERAEREEEEEEEKEEEREEEEREEEE 


TEST 11 TEST THAT DAC #1 REGISTER CAN HOLD A FLOATING 1 PATTERN 


FARRAR AEREAREEEREREEAE EERE EEEREREEEAEEEEEEEREAEERERAEEEEEEREEEE 


i$111: SCOPE 
MOV #100 7 dottas 3300 100° bee euper 


MOV #B1T11,$GDDA D EXPECTED 
1$: MOV $GDDAT Hata Att THE REGISTER 
MOV @DAC1,$BDDAT [READ THE REGISTER 
CMP SGDDAT, $BDDAT *COMPARE THE DATA 
BEQ 2$ ::BR IF DATA IS SAME 
ERROR 3 sERROR, DAC #1 REGISTER FAILED TO HOLD A FLOATIN 
2$: ASR SGDDAT :CHANGE THE DATA 
1$ :BR AND TEST MORE DATA 
ITTITTILT ITI LITI ITI TTL ITLL iLL iLitili ii th iii thet kh Lid 
TEST 12 TEST THAT DAC1 CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 


SARA EEEEEEEAEEREREREEEEEEEEEREEEREREEEEEEREEEREEEREEEEEEEE 


ig12: SCOPE 


MOV #100, STIMES ::D0 100 ITERATIONS 
MOV #B1T11,$GDDAT :LOAD EXPECTED 
MOV $GDDAT, aDAC1 ‘LOAD DAC1 
1$: MOV @DAC1,$BDDAT [READ THE REGISTER 
CMP $GDDAT, $BDDAT ‘COMPARE THE GOOD TO DAC1 
BEQ 2$ ::BR IF THE SAME 
MOV @DAC1,$BDDAT sSAVE FOR TYPEOUT 
ERROR 3 :DAC1 FAILED TO HOLD A FLOATING 1 PATTERN 
MOV $GDDAT, aDAC1 SLOAD DACI_A AGAIN 
2$: ASR aDACcl ‘CHANGE THE D 
ASR SGDDAT : CHANGE mgiié EX EXPECTED 
PRI RAP, ERE RETRACT I Ben 2 OEE 
TEST 13 TEST THE ‘’SUB’’ INSTRUCTION WORKS ON DAC1 
FEAR ARAAAEAEREAAAEE EEE AEAEAAAAAEEAAAEAAARAAAEAAAAAAEEEAAAREEEEEE 
78113: SCOPE 
MOV #10 STIMES 3:00 10 ITERATIONS 
MOV #7777, $GDDA :LOAD EXPECTED 
MOV $GDDAT, sta [LOAD DAC1 
1$: SUB #1,$GDOAT :SUB A VALUE 
SUB #1. aDAC1 :FROM EXPECTED AND DAC1 
MOV @DAC1, $BDDAT TREAD THE REGISTER 
CMP SGDDAT, $BDDATI * COMPARE 
BEQ 2$ 23BR IF SAME 
ERROR 3 THE SUB INSTRUCTION FAILED ON DAC} 
MOV $GDDAT, aDAC1 :LOAD THE REGISTER AGAIN 
2s: TST SGDDAT MORE DATA 


BNE 1$ ::BR IF hone DATA 


oO a A — 
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CNAAAA.P11 —s- 27=DEC=82 14:25 113 TEST THE ''SUB’’ INSTRUCTION WORKS ON DAC1 SEQ 0023 
5997 ' FERRARA RAAAAAER EERE EE EEE REE EEE AEEREAERERAEAAEEEREREREREATAEEEEEEE 
(3) TEST 14 TEST THAT THE DAC #2 REGISTER CAN BE CLEARED 
(3) FERRARA EEEAEEAEREEEEEEEREREEEREE AERA E RARER EEEEEKERAEEER EERE EES 
(2) 003250 000004 isT14: SCOPE 
5998 003252 005037 001124 CLR SGDDAT ;LOAD EXPECTED 
5999 003256 013777 001124 176142 MOV SGDDAT, aDAC2 “LOAD REG 
6000 003264 017737 176136 001126 MOV QDAC2, $BDDAT tREAD REG 
6001 003272 023737 001124 001126 CMP scpbaf, SBDDAT * COMPARE 
6002 003300 001401 BEQ TST15 ::8R IF EQUAL 
6003 003302 104004 ERROR 4 SERROR, DAC #2 REGISTER NOT = 0 
6005 LRRRARERARE AAS AERA EEE EEA EEE EREAARAREAARAAREREAAReeeeAeeeeeeeee 
(3) zSTEST 15 TEST THAT THE DAC #2 REGISTER CAN BE LOADED WITH #7777 ° 
(3) SRRAAAEEAAAREEEAAAEEEEEEEEEEEEEAEREEREEEREEEREEAAERERAEEEREEEREE 
(2) 003304 000004 18115: SCOPE 
006 003306 012737 007777 001124 MOV #7777, $GDDAT :LOAD EXPECTED 
6007 003314 013777 001124 176104 MOV SGDDAT ,aDAC2 SLOAD REG 
6008 003322 017737 176100 001126 MOV @DAC2, $BDDAT SREAD REG 
6009 003330 023737 001124 001126 CMP SGDDAT, SBDDAT * COMPARE 
6010 003336 001401 BEQ TST16 ::BR IF EQUAL 
601! 003340 104004 ERROR 4 SERROR, DAC #2 REGISTER NOT = 7777 
6013 SERRA AAAEAAEEAEAAAEE TETRA EEEEEEEEAEAAERERAEEEAREEAAEEERERAEEEEEE 
(3) TSTEST 16 TEST THAT THE DAC #2 REGISTER CAN HOLD A FLOATING 1 PATTERN 
(3) RERAEEAEAAEEAEAAEEEAEAEAEEAEAEAEEAAAAAAERAEAEAREREAAAEAAEEAEEERAEEE 
(2) 003342 000004 +8116: SCOPE 
(1) 003344 012737 00109 001160 MOV #100 STIMES 7:00 100 ITERATIONS 
6014 003352 012737 004000 001124 MOV #Bitil.$cdDA ZLOAD EXPECTED 
6015 003360 013777 001124 176040 1$: MOV $GDD Hated [LOAD DAC2 REGISTER 
6016 003366 017737 176034 001126 MOV aDA ees DDAT SREAD THE REGISTER 
6017 003374 023737 001124 001126 CMP SGDDAT, $BDDAT “COMPARE THE DATA 
6018 003402 001401 BEQ 2$ ::BR IF SAME 
6019 003404 104004 ERROR 4 TERROR DAC #2 pREGISTER FAILED TO HOLD A FLOATIN 
6020 003406 006237 001124 2$: ASR $GDDAT : CHANGE T 
6021 003412 001362 BNE 1$ [BR AND teste MORE DATA 
6023 SERRA AAAAEAEEAAAEAEEEAAEAERAREAERAAAAEAEAEAAAEAEAEEEEEREREREREEEEEE 
(4 i STEST 17 TEST THAT DAC2 CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 
(4) SRRAAEAAAAAAEAAEEAAAEEE EERE EE EEA EERE EEAEAERAEEAEERAAEEEREEEEEREEEEE 
(3) 003414 000004 T8117: SCOPE 
(2) 003416 012737 000100 001160 MOV #100 STIMES | ::D0 100 ITERATIONS 
(1) 003424 012737 004000 001124 MOV #B1T11,$ sLOAD EXPECTED 
(1) 003432 013777 001124 175766 MOV SGDDAT eoneat AD DAC 
(1) 003440 017737 175762 001126 1$: MOV aDAC2, $BDDAT SREAD THE REGISTER 
(1) 003446 023737 001124 001126 CMP SGDDAT, SBDDAT SCOMPARE THE GOOD TO DAC2 
(2) 003454 001407 BEQ ::BR IF THE SAME 
(1) oo acae AEH sghnen roe ERROR  eceneenes ays FAL iD TO wou A FLOATING 1 PATTERN 
(1) 003466 013777 001124 175732 MOV SGDDAT, aDAC2 SLOAD DACS AGA 
(1) 003474, 006277 175726 2s: ASR aDAC2 [CHANGE THE MOATA 
(1) 003500 006237 001124 ASR SGDDAT [CHANGE THE EXPECTED 
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(1) 003504 001355 BNE 1$ 3BR IF MORE DATA 








M 2 
DIAGNOSTIC MACY11 30(1046) 27=DEC-82 14:27 PAGE 


MAINDEC-11=CNAAA=A AAV11 68 
CNAAAA.P11 =. 27=DEC=82 14:25 T17 TEST THAT DAC2 CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) SEQ 0025 
eRe? FERRARA EERE EE EERE EEE EEA EEEEEEAEAEEEEREEEAEEREKEREREE EEE 
(4) tSTEST 20 TEST THE ‘’SUB'’ INSTRUCTION WORKS ON DAC2 
(4) PRPAAAAAEASAALALAZALALALLLAELCLALLALEL ELE LE ETE EEE ERECT TEP PPPS TT SS 
(3) 003506 000004 +8120: SCOPE 
(2) 003510 012737 000010 001160 MOV #10 STIMES 2:00 10 ITERATIONS 
(1) 003516 012737 007777 001124 MOV #7777, $GDDA sLOAD EXPECTED 
(1) 003524 013777 001124 175674 MOV SGDDAT Space LOAD DA Ace 
(1) 003532 162737 000001 001124 1$: SUB #1,$GDDAT :SUB A VALUE 
(1) 003540 162777 000001 175660 SUB #1,aDAC2 * FROM EXPECTED AND DAC2 
(1) 003546 017737 175654 001126 MOV @DAC2, $BDDAT ‘READ THE REGISTER 
(1) 003554 023737 001124 001126 CMP SGDDAT, SBDDATI : COMPARE 
(2) 003562 001404 BEQ 2$ ::BR IF SAME 
(1) 003564 104004 ERROR 4 sTHE SUB INSTRUCTION FAILED ON DAC2 
(1) 003566 013777 001124 175632 MOV SGDDAT,aDAC2 LOAD THE REGISTER AGA IN 
(1) 003574 005737 001124 2$: TST SGDDAT TEST FOR MORE DAT 
«(3 003600 001354 BNE 1$ ::BR If MORE DATA 
6028 FRR EREREEEEEEEEEREREEEAEREKEREEEREEEEREREREEREEEEEREEEKERE 
(3) TEST 21 TEST THAT THE DAC #3 REGISTER CAN BE CLEARED 
(3) SERRE EEE EEEEEEEEEEEEREEREEAEEAEEEEEREREREEREREEKEEEREEKE 
(2) 003602 000004 $121: SCOPE 
6029 003604 005037 001124 CLR SGDDAT ZLOAD EXPECTED 
6030 003610 013777 001124 175612 MOV SGDDAT,@DAC3 sLOAD REG 
6031 003616 017737 175606 001126 MOV @DAC3, $BDDAT TREAD REG 
6032 003624 023737 001124 001126 CMP SGDDAT, $BDDAT i COMPARE 
6033 003632 001401 BEQ TST22 ::BR IF EQUA 
6054 003634 104005 ERROR 5 ERROR, DAC #3 REGISTER NOT = 0 
6036 SERRA AAEEAAEAEREEREREEEREEEEEEEREREEAEEAEEREEEEEEEREEREEEEEEREEEE 
(3) i STEST 22 TEST THAT THE DAC #3 REGISTER CAN BE LOADED WITH #7777 
(3) SERRE EAAEEEEEEEREEEEEEREEEEEEAEEAEEAEAAREREREAEREREEEREREEEEEREEE 
(2) 003636 000004 7§122: SCOPE : 
6037 003640 012737 007777 001124 MOV #7777, $GDDAT ZLOAD EXPECTED P 
6038 003646 013777 001124 175554 MOV SGDDAT, aDAC3 SLOAD REG 
6039 003654 017737 175550 001126 MOV aDAC3, $BDDAT SREAD REG _ , 
6040 003662 023737 001124 001126 CMP SGDDAT, SBDDAT i COMPARE 4 
6041 003670 001401 BEQ TST2 3:BR IF EQUA Le 
6042 003672 104005 ERROR 5 ERROR, DAC #3 REGISTER NOT = 7777 
6044 FERRARA AEEEE AEE EEAEEAAEREAAAERAEEAEREEAAERAAAEREEEEEEEEE 
(3) i STEST 23 TEST THAT THE DAC #3 REGISTER CAN HOLD A FLOATING 1 PATTERN 
(3) SERRA RAEAARAAAAEAAAEEEAEE EEE EAE AAEEAAEERAEAAREAERERAAAEREEERERREREEE 
(2) 003674 000004 18123: SCOPE 
(1) 003676 012737 000100 001160 MOV #100 STIMES 7:00 100 ITERATIONS 
6045 003704 012737 004000 001124 MOV #BIT11,$ :LOAD EXPE 
6046 003712 013777 001124 175510 1$: MOV SeDDAT oeeat [LOAD DAC ease REGISTER 
6047 003720 017737 175504 001126 MOV @DAC3, $BDDAT RE AD THE REGISTER 
6048 003726 023737 001124 001126 CMP SGDDAT, SBDDAT *COMPARE THE DATA 
one0 $0376 902005 BE ROR ¢ ne Seon DAC + REGISTER FAILED TO HOLD A ' OATI 
L N 
6051 003740 006237 001124 2s: ASR SGDDAT [CHANGE T 
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6052 003744 001362 BNE 1$ :BR AND TEST MORE DATA 
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MAINDEC-11=CNAAA=A AAV11 
CNAAAA.P11 =. 27=DEC=82 14:25 123 TEST THAT THE DAC #3 R°GISTER CAN HOLD A FLOATING 1 PATTERN SEQ 0027 

6056 SERA AAEEAERAAAAEREREEEEEEEREERERREREEEEAREEEEEEEEEEEREERREEEEEE 
(4) tS TEST 24 TEST THAT DAC3 CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 
(4) SREAEAAAAAAEAEAEAEAAEAEATEEEAEAAAAARARAAEAREREREEEAEAAREAREAEEEEEEERE 
(3) 003746 000004 $124: SCOPE 
(2) 003750 012737 000100 001160 MOV #100 STIMES 3:00 100 ITERATIONS 
(1) 003756 012737 004000 001124 MOV #BIT11,$ ;LOAD EXPECTED 
(1) 003764 013777 001124 175436 MOV SGDDAT sSDACS. 
(1) 003772 017737 175432 001126 1$: MOV AC3,$BD READ THE REGISTER 
(1) 004000 023737 001124 001126 CMP scobat. SBDDAT ‘COMPARE THE GOOD TO DAC3 
(2) 004006 001407 BEQ 2$ ::8R IF THE SAME 
(1) 004010 017737 175414 001126 MOV @DAC3, $BDDAT z SAVE FOR YPEOUT 
(1) 004016 104005 ERROR CNA TO HOLD A FLOATING 1 PATTERN 
(1) 004020 013777 001124 175402 MOV SGDDAT,aDAC3 SLOAD D 
(1) 004026 006277 175376 2$: ASR aDACc3 [CHANGE THE D 
(1) 004032 006237 001124 ASR SGDDAT ‘CHANGE THE EXPECTED 
(1) 004036 001355 BNE 1$ 7BR IF MORE D 
057 PO... HOR, Serer A A... I |, See 
(4) tS TEST 25 TEST THE ‘SUB’ INSTRUCTION WORKS ON DAC3 
(4) SRAAAAAARAARAAAEAAAAAEAEAAEREAAAAAAAAARARARARARAARAEEAEAAREARAREEAERE 
(3) 004040 000004 +8125: SCOPE 
(2) 004042 012737 000010 001160 MOV #10, STIMES 3:00 10 ITERATIONS 
(1) 004050 012737 007777 001124 MOV #7777, ,SGDDAT 7LOAD EXPECTED 
(1) 004056 013777 001124 175344 MOV S$GDDAT ,aDAC3 [LOAD DAC 
(1) 004 162737 000001 001124 1$: SUB #1, $6DbAT :SUB A VALUE 
(1) 004072 leer7? 900001 175330 SUB #1 apAc C3 :FROM EXPECTED AND DAC3 
(1) 004100 017737 175324 001126 MOV @DAC3, $BDDAT [READ THE REGISTER 
(1) 004106 023737 001124 001126 CMP SGDDAT, $BDDATI * COMPARE 
(2) 004114 001404 BEQ $ ::BR IF SAME 
(1) 004116 104005 ERROR sTHE SUB INSTRUCTION FAILED ON DAC3 
(1) 004120 013777 001124 175302 MOV SGDDAT,@DAC3 LOAD THE REGISTER AGAIN 
(1) 004126 005737 001124 23: TST SGDDAT AY MORE DATA 
(2) 004132 001354 BNE ::BR IF hone DATA 








——- 
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059 
£060 FERRARA AAAAAAERAAREREEREEEEEERERERERERAEREREEEEEEREREEREEEEREE 
(3) SeTEST 26 TEST THAT THE FOUR DAC REGISTERS CAN HOLD DIFFERENT DATA 
(3) TUR CCA AAAAALALALALALASAAASLASALALALASCELALELE LACE EEE EE EEE EE ERT TT Ta GS 
(2) 004134 000004 T5126: SCOPE 
6061 004136 012777 001111 175256 MOV #1111,aDACO ;LOAD DAC #0 
6062 004144 012777 002222 173¢5 MOV #2222,aDAC1 [LOAD DAC #1 
6063 004152 012777 004444 175246 MOV #4444,aDAC2 [LOAD DAC # 
6064 004160 012777 007777 175242 MOV #7777, a@DAC3 SLOAD DAC # 
6065 004166 012737 001111 001124 MOV #1111, $GDDAT ‘LOAD EXPECTED 
6066 004174 017737 175222 001126 MOV aDAC0, $BDDAT TREAD REG 
6067 004202 023737 001124 001126 CMP SGDDAT, $BDDAT * COMPA 
6068 004210 001401 BEQ 1 ::BR IF EQUAL 
6069 004212 104002 ERROR 2 SERROR, SELECTED DAC #0 IN ERROR 
6071 004214 012737 002222 001124 1$: MOV #2222 ,,$GDDAT ;LOAD EXPECTED 
6072 004222 017737 175176 001126 MOV @DAC1, $BDDAT TREAD REG 
6073 004230 023737 001124 001126 CMP SGDDAT, SBDDAT * COMPARE 
6074 004236 001401 BEQ es 3:BR IF EQUAL 
6075 004240 104003 ERROR SERROR, SELECTED DAC #1 IN ERROR 
6077 004242 012737 004444 001124 28: MOV #4444, $GDDAT sLOAD EXPECTED 
6078 004250 017737 175152 001126 MOV @DAC2, $BDDAT TREAD REG 
6079 004256 023737 001124 001126 CMP SGDDAT , SBDDAT + COMPARE 
6080 004264 001401 BEQ 3$ ::BR IF SAME 
6081 004266 104004 ERROR 4 ZERROR, SELECTED DAC #2 IN ERROR 
6083 004270 012737 007777 001124 3$: MOV #7777, $GDDAT :LOAD EXPECTED 
6084 004276 017737 175126 001126 MOV @DAC3, $BDDAT SREAD REG 
6085 004304 023737 001124 001126 CMP SGDDAT,SBDDAT * COMPA 
6086 004312 00101 TST27 ::BR IF SAME 


1 BEQ 
6087 004314 104695 ERROR 5 sERROR, SELECTED DAC #3 IN ERROR 
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p24 Bs RARER RAEAAAEAAEAAAAETAEEAETEEEAAAAAAEREAAERERAEAEAEAREREEAEEEREREE 
(3) SeTEST 27 TEST THAT RESET CLEARS DAC #0 REGISTER 
(3) a ep a i itn it eli al a nit iain k cei 
(2) 004316 000004 +8127: SCOPE 
(1) 004320 012737 000010 001160 MOV #10,$TIMES 3:00 10 ITERATIONS 

6091 004326 012777 177777 175066 MOV #-1,aDACO 

6092 004334 005037 001124 CLR SGDDAT sLOAD EXPECTED 

6093 004340 000005 RESET 

6 4342 017737 175054 001126 MOV @DACO, $BDDAT :READ REG 

6095 004350 023737 001124 001126 CMP SGDDAT, $BDDAT * COMPARE 

6096 004356 001401 BEQ TST30 ::BR IF EQUAL 

6097 ; ERROR : SERROR, RESET FAILED TO CLEAR DAC #0 

6098 004360 000240 NOP ‘PATCH 1 OF CVAAAA 

$000 FRRAAAREREEEAAEAEEEEREEEEEEAEEEERAAEEEERERRRRAREREREEREREEEERE EE 
(3) + STEST 30 TEST THAT RESET CLEARS DAC #1 REGISTER 
(3) RARE REETAAAEAERAEAAEAAEEAAAAAEEAEEAAAARAEAAEAAAAAAAAEAEAAEEEEAEEEEEE 
(2) 004362 000004 78130: SCOPE 
(1) 004364 012737 000010 001160 MOV #10, S$TIMES ::D0 10 ITERATIONS 

6101 004372 012777 177777 175024 MOV #~-1,aDAC1 

6102 004400 005037 001124 CLR $GDDAT ;LOAD EXPECTED 

6103 004404 000005 RESET 

6104 004406 017737 175012 001126 MOV @DAC1,$BDDAT ;READ REG 

6105 004414 023737 001124 001126 CMP SoDvAT, SBDDAT : COMPARE 

6106 004422 001401 BEQ TST3 ::BR IF EQUAL 

6107 ; ERROR 3 SERROR, RESET FAILED TO CLEAR DAC #1 

6108 004424 000240 NOP ‘PATCH 1 OF CVAAA 

gif0 

6111 SERA REREREEREREEEEREREEEREREREEEEAEEAEEREERAAARAEREEEEERE EE 
(3) tSTEST 31 TEST THAT RESET CLEARS DAC #2 REGISTER 
(3) REAEAAAAEEAAAAAAEAAAEAATAKEATAAAAAARAAARAARARARAAEAARARAAAARAAAEREEE 
(2) 004426 000004 T8131: SCOPE 
(1) 004430 012737 000010 001160 MOV #10, $TIMES 3:00 10 ITERATIONS 

6112 004436 012777 177777 174762 MOV #-1,aDAC2 sLOAD THE REGISTER 

6113 004444 005037 001124 CLR SGDDAT [CLEAR EXPECTED 

6114 004450 000005 RESET 

6115 004452 017737 174750 001126 MOV @DAC2. SBDDAT sREAD THE REGISTER 

6116 004460 001401 BEQ TST3 ::BR IF CLEARED 

6117 : ERROR 4 ZERROR, RESET FAILED TO CLEAR DAC #2 

6118 004462 000240 NOP :PATCH 1 OD CVAAAA 

6120 FARRAR AAAEAAAEAAEEAEAERAREAEEEAAEARAEAAAAEARAARAAAEARAEAEEAAERAAAAAAAED 
(3) tSTEST 32 TEST THAT RESET CLEARS DAC #3 REGISTER 
(3) REAAAAAAAAEAAAAAEAAEAAAETAARAEEAEAETAAAERARAAAARARARAAARAEARAEARERAAARERAEE 
(2) 004464 000004 1$132: SCOPE 
(1) 004466 012737 000010 001160 MOV #10, STIMES ::D0 10 ITERATIONS 

6121 004474 012777 177777 174726 MOV #-1,aDAC SLOAD THE REGISTER 

6122 004502 005037 001124 CLR SGDDAT :CLEAR THE EXPECTED 

6123 004506 012737 000001 007012 MOV #1, TEMP 

6124 004514 000005 RESET 
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6125 004516 017737 174706 001126 MOV @DAC3,$BDDAT ;READ THE REGISTER 
6126 004524 001401 BEQ TST33 ;7BR IF CLEARED 
6127 $ ERROR 5 sERROR, RESET FAILED TO CLEAR DAC #3 
oiss 004526 000240 NOP sPATCH 1 OF CVAAAA 
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| 6131 
| 6132 004530 REMAIN: 
| 6133 FERRARA EAAEAAAEEEAAAEEE EERE EEEAAAEEAEARAEERREREEREEEKEREREEEEEES 
| (3) TeTEST 33 DETERMINE IF MORE AAV11°S REMAIN TO BE TESTED 
j (3) * RRAEAAAARERAAEAAAAAAEEAEKETAEAAAAARAARARAARAAAEREEAARARAEEARAEAKREEAEE 
(2) 004530 000004 T$133: SCOPE 
(1) 004532 012737 000001 001160 MOV #1,STIMES 3:00 1 ITERATION 
6134 004540 005237 001206 INC SUNIT :UPDATE UNIT # 
6135 004544 123737 001206 001420 CMPB ss SUNT, EVER ‘TEST IF MORE 
6136 004552 001424 BEQ TST34 ::BR IF NOT 
6137 004554 005237 001204 INC SDEVCT ;APT UNIT # 
6138 004560 063737 001416 001422 ADD VADDR,DACO ZUPDATE BUS ADDRESS 
6139 004566 063737 001416 001424 ADD VADDR,DAC1 
6140 004574 063737 001416 001426 ADD VADDR,DAC2 
6141 004602 063737 001416 001430 ADD VADDR,DAC3 
6142 004610 006337 007010 ASL MASKNM ZCHANGE THE ERROR FLAG BIT 
6143 004614 005037 001102 CLR $TSTNM 
6144 004620 000137 002306 JMP TST1 :TEST THE NEXT UNIT 
6171 FF RARER AAERERAEEREEEAEEEEE EEE EEEEEREREEREEEAEEEEEEEREREREREREEREE 
(3) seTEST 34 DETERMINE IF RUNNING ON THE HARDWARE TESTER CIF NOT REPORT END OF PA 
(3) FERRARA EREEAEEEEEEEEEAEEREEAERERRAEEERAEEREEEEREREEEEREE EEE ES 
(2) 004624 000004 7$734: SCOPE 
(1) 004626 012737 000001 001160 MOV #1, S$TIMES 33:00 1 ITERATION 
6172 004634 005737 007020 TST WFTST sTEST IF ON TESTER 


6173 004640 00100 BNE TST35 33BR TO TEST 
6174 004642 0001357 005454 JMP SEOP 
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TTERN 
LOAD EXPECTED PATTERN 


MASK OFF OTHER BITS 
yo} 
2 DAC ris DIGITAL OUTPUT BITS IN ERROR 


zADJUST LOADED PATTERN 


PECTED 
7SAMPLE THE CHANNEL 


+15 VOLT SUPPLY IS WRONG 


XPECTED 
7SAMPLE THE CHANNEL 


DIAGNOSTIC MACY11 30(1046) 
134 DETERMINE IF RUNNING ON THE HARDWARE TESTER 
FERRE REREAEERAEEREEREER EEE EEE EER EEERAEREEERAEREREAAEEEEEEREEEEEE 
SSTEST 35 TEST THAT DAC #3 OUTPUT BITS (0-3) FUNCTION 
FERAEAAERAEAAEAEERERAEEEE EEE AREER EEEAEEEEREAEEREERERERREL RE EKEEE 
+8135: SCOPE 
001160 MOV #1,STIMES 3:00 1 ITERATION 
007014 MOV #BIT3,$TEMP :LOAD DAC P 
001124 MOV #B1T11,$GDDAT 
174530 1$: MOV STEMP,aDAC3 ZLOAD DAC REGISTER 
001126 MOV @DRIN, $BDDAT TREAD THE REGISTER 
001126 BIC #170377, $BDDAT 
001126 CMP S$GDDAT, $BDDAT *C 
BE $ ::BR IF THE S$ 
ERROR 13 
2$: ASR SGDDAT sADJUST EXPECTED 
ASR STEMP 
BNE 1$ 
FERRARA EEEE EEE EERE EERE EEA AEEEEEEEEEEEEE EEE EREEETENE 
TEST 36 VERIFY THE AAV11 +15 SUPPLY 
FREE EREEEAEREEAEEEEE EE EEE EERE EAEAREEEKERERERAREREEEEERARERERE 
18136: SCOPE 
001160 MOV #1,$TIMES ::D0 1 ITERATION 
001124 MOV V5744,$GDDAT sLOAD EX 
SR R5,CONVRT 
007016 MOV V144, SPREAD ;LOAD TOLERANCE 
JSR PC, COMPAR ‘TEST IT 
BR 1S137 ::BR 
ERROR 11 
FRRARAAAEEAERERAEEEAAEEEEEEREEERERAAEAREEAAEEEAEEEREEREERERREEREEE 
TEST 37 VERIFY THE AAV11 -15 SUPPLY 
FREER EEEEAAEREEEEERARERAEE AREA KEAEEAAEEAEEARAEEEEEEEAEEEEREEEE 
18137: SCOPE 
001160 MOV TIMES 33D0 1 ITERATION 
001124 MOV W634. SGDDAT sLOAD EX 
ASR RS, CONVRT 
007016 MOV V144, SPREAD :LOAD TOLERANCE 
JSR PC, COMPAP :TEST IT 
BR T 372BR 
ERROR 12 


| 
2) 
005004 
005020 004537 
04 
06 005034 
000401 


3715 VOLT SUPPLY IS WRONG 


(IF NOT REPORT END OF PAS SEQ 0032 


coco + a —— a 


| 3 
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(CNAAAA.P11 =. 27=DEC=82 14:25 137 VERIFY THE AAV11 =15 SUPPLY SEQ 0033 
ogi} FFARR ARAAEAAAAAAREREEHEREEAERERERAAERERRAREEREAAEEAERHAREHRE ERS 
| “() Z*TEST 40 DACO OFFSET ADJUSTMENT 
} (4) a tala ach cha a ale 
| (3) 005044 000004 T§140: SCOPE 
(2) 005046 +=012737 000001 001160 MOV #1,STIMES ::D0 1 ITERATION 
| §=§(1) 005054 005737 001202 TST $PASS sTEST IF FIRST PASS 
+7 005060 001006 BNE TST41 778R IF NOT 
(1) 005062 004537 005634 JSR R5,OFFDAC :LOAD AND EXECUTE DAC OFFSET ADJ. 
(1) 005066 001422 DACO ‘DAC ADDRESS 
(1) 005070 010726 SELDO : :TYPEOUT ADDRESS 
(1) 005072 010552 ADJR46 SRES. TO ADJUST 
(1) 005074 000013 13 ‘RESULT CHANNEL # 
(5) FURAAAAAERAAAEAAAAEEHERAEEEEAEEREERERAEEAEERAAEEEAAAAERERAEEEREREEE 
(4) SSTEST 41 DACO GAIN ADJUSTMENT 
(4) FRASER AHEAEAREREAEEAETEEEAATERAEAERAAAAAEAAAEREREREREAAEREEEERES 
(3) 005076 000004 TST41: SCOPE 
(2) 005100 012737 000001 001160 MOV #1, STIMES 3:00 1 ITERATION 
(1) 005106 005737 001202 TST $PASS sTEST IF FIRST PASS 
(3) 005112 001005 BNE TST42 z:BR IF NOT 
(1) 005114 004537 005764 JSR R5S,GAIDAC ;LOAD AND EXECUTE DAC GAIN ADJ. 
(1) 005120 001422 DACO 3DAC ADDRESS 
(1) 005122 010576 ADIR34 “RES. TO ADJUST 
(1) 005124 00001 1 SCHANNEL # FOR RESULTS 
(5) FRA AAAAAAAAAAE TESA AAEEAAAAAAAAAAAAAAAAERAEAAAAAAERAAAEERARE 
(4) TEST 42 DACO CALIBRATION 
(4) FRAAAAAAAAAAAAAAAEAAAATEAAAHAAAARAAAAAAAAERAAEERAREEKAARREEEAAES 
(3) 005126 000004 $142: SCOPE 
(2) 005130 012737 000001 001160 MOV #1, STIMES 3:00 1 ITERATION 
(1) 005136 004537 006104 JSR RS. CALDAC ;LOAD AND EXECUTE CALIBRATION 
(1) 005142 001422 DACO [DAC ADDRESS 
(1) 005144 000013 13 sCHANNEL # FOR RESULTS 
A 


‘Wepaaec nies tell i aes Sa ince atscamamacisaaacagamaitia 


“MAINDEC=11=CNAAA=A AAV11 DIAGNOSTIC MACY11 30(1046) 
(CNAAAA.P11 —-.27=DEC=82 14:25 142 DACO CALIBRATION 
osi% FRRAAAAERAERARAEEEEATHEEEREEAAEEEEAAEEAERAAERERAEEREAAEHEEREEAREEHE 
tS TEST 43 DAC1 OFFSET ADJUSTMENT 
REAR EEAAAAAAREAKEAE*EEREATAEAAEAAAARAAERARAEAAERAEAARAEAAEARAREEEAEE 
005146 000004 18143: SCOPE 
005150 012737 000001 001160 MOV #1,STIMES :2D0 1 ITERATION 
005156 005737 001202 TST SPASS sTEST IF FIRST PASS 
005162 001006 BNE TST44 ::8R IF NOT 
5164 004537 005634 JSR R5S,OFFDAC ZLOAD AND EXECUTE DAC OFFSET ADJ. 
005170 001424 DAC1 :DAC ADDRESS 
005172 910744 SELD1 3 TYPEOUT ADDRESS 


3 
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5174 05 
005176 000014 


005200 000004 


005202 012737 
005210 ted 


005232 012737 
004537 
005244 001424 
000014 


LEEPER BEEP PPP PPR POOP PRP PLL PP LLL Pe 
= NW BU ot ot I WW IW Bt ot 8 tt SW PUI EB 
eee ed ee ee a a a ee 


| 


000001 
001202 


005764 


000001 
006104 


001160 


001160 


S. TO 
SRESULT CHANNEL # 


FRRAAAAEAAEEEEAEEREEEEEEEEEEEEEEEREEEEAREEAERERAEKEEEERE ERE EES 


TEST Gs DAC1 GAIN ADJUSTMENT 


FARRAR AAAERAEEREEEEEEEEEREEAAEEERAREREEEREEEEAEEEEEEEEEEEEEEEEEE 


1ST44: SCOPE 


MOV #1,$TIMES 33D0 1 ITERATION 


TST SPASS TEST IF FIRST PASS 

BNE TST45 338R IF NOT 

JSR RS ,GAIDAC LOAD AND EXECUTE DAC GAIN ADJ. 
DAC1 ;DAC ADDRESS 

ADJR35 RES. TO ADJUST 

14 ZCHANNEL # FOR RESULTS 


FERRARA AERAARAEEEEEEAEAAEAAEAEAAEAAARAAEAEAAAEAAEEREREAEAEREEREEE 


LATEST 45 DAC1 CALIBRATION 


SEAAAEAAAAAAAAAAAEEAAERAERAAAAAAARAAAAAAAAAAAERAERAEREREREEEREEEEEE 


78145: SCOPE 


MOV #1,STIMES 3300 1 ITERATION 
JSR RS, CALDAC 
DAC1 {DAC A 


;CHANNEL # FOR RESULTS 


ee ee eit Ce —  --- 


; LOAD Ba At a CALIBRATION 


SEQ 0034 
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MAINDEC-11=CNAAA=A AAV11 
CNAAAA.P11 27=DEC=82 14:25 T45 DAC1 CALIBRATION SEQ 0035 

peat PITTI ITI iii 

(4) TEST 46 DAC2 OFFSET ADJUSTMENT 

(4) PITTI ITI itt titi iti titi ii iiiiiiiiiiiiiiiiiiiiiiiiiiiiiy) 

@} 005250 000004 18146: SCOPE 

(2) 005252 012737 000001 001160 MOV #1,STIMES 33D0 1 ITERATION 

(1) 005260 005737 001202 TST SPASS sTEST IF FIRST PASS 

‘3 005264 001006 BNE TST47 3:BR IF NOT 

(1) 005266 004537 005634 JSR R5 ,OF FDAC 3LOAD AND EXECUTE DAC OFFSET ADJ. 
(1) 005272 001426 DAC2 ;DAC ADDRESS 

(1) 005274 010762 SELD2 s;TYPEOUT ADDRESS 

(1) 005276 010640 ADJR48 sRES. ADJUS 

4 005300 000016 16 SRESULT CHANNEL # 

(5) ITI I iii titi iliiiiiitiiiiiiiiiiiiiiiiiiiiiiiiiiiy) 

(4) TEST 47 DAC2 GAIN ADJUSTMENT 

(4) PITTI TITIT III IIIS LITT Titi titi iiii ii iiiiiiiiiiiiiiiiiiiii ys) 

ie 005302 000004 18147: SCOPE 

(2) 005304 012737 000001 001160 MOV #1,STIMES 3300 1 ITERATION 

(1) 005312 005737 001202 TST SPASS ;TEST IF FIRST PASS 

fi 005316 001005 BNE TST50 33BR IF NOT 

(1) 005320 004537 005764 JSR RS ,GAIDAC 3LOAD / EXECUTE DAC GAIN ADJ. 
(1) 005324 001426 DAC2 DAC A DRESS 

(1) 005326 010464 ADJR36 iRES. 10 ADJUST 

$32 0053 000016 16 SCHANNEL # FOR RESULTS 

(5) ITT TITI IIIT titi iii i iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiy) 

(4) SSTEST 50 DAC2 CALIBRATION 

(4) PIT IIITI TIT TITITI LISTS TTT Iti iiiiitiiiitiiiiiiititiiiiiiiy) 

2 005332 000004 1§150: SCOPE 

(2) 005334 012737 000001 001160 MOV #1,$TIMES 3300 1 ITERATION 

(1) 005342 004537 006104 JSR RS. CALDAC ;LOAD AND EXECUTE CALIBRATION 
(1) 005346 001426 DAC2 DAC ADDRESS 

(1) 005350 000016 16 SCHANNEL # FOR RESULTS 








——————————_——————— 
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CNAAAA.P11 =. 27=DEC=82 14:25 T50 DAC2 CALIBRATION SEQ 0036 

ose0 FERRARA AEERAAAEERAEREEEEEEEEEEAAEREEEARAREEEERAREEREREKEEEE EEE 
(4) tS TEST 51 DAC3 OFFSET ADJUSTMENT 
(4) PARRA AAAAAAAALALALALALALALLALLALALLELEE EE ELTA R RR RR RRS SS 
(3) 005352 000004 T8151: SCOPE 
(2) 005354 012737 000001 001160 MOV #1,STIMES 2:00 1 ITERATION 
(1) 005362 005737 001202 TST SPASS TEST IF FIRST PASS 
(3) 005366 001006 BNE TST52 ::BR IF NOT 
(1) 005370 004537 005634 JSR R5S,OFFDAC LOAD AND EXECUTE DAC OFFSET ADJ. 
(1) 005374 001430 DAC3 [DAC ADDRESS 
(1) 005376 011000 SELD3 :TYPEOUT ADDRESS 
(1) 005400 010673 ADJR49 SRES. TO ADJUST 
(1) 005402 000015 15 SRESULT CHANNEL # 
(5) FRARAARAAAAAAAAAAAAAAAEAER EE AAA AAEAAARAERERAERAAERAERERAERERERE EE 
(4) + STEST 52 DAC3 GAIN ADJUSTMENT 
(4) REEREAAEAEEEAAAAARERAETEAAEATEEAEAEREAEAAAAEARAEAAERAARERAAREREEEREE 
(3) 005404 000004 $152: SCOPE 
(2) 005406 012737 000001 001160 MOV #1,$TIMES 2:00 1 ITERATION 
(1) 005414 005737 001202 TST $PASS sTEST IF FIRST PASS 
(3) 005420 001005 BNE TST53 ::8R IF NOT 
(1) 005422 004537 005764 JSR R5,GAIDAC :LOAD AND EXECUTE DAC GAIN ADJ. 
(1) 005426 001430 DAC3 [DAC ADDRESS 
(1) 005430 010517 ADJR37 3RES. TO ADJUST 
(1) 005432 000015 1 SCHANNEL # FOR RESULTS 
(5) FERRARA AEEEAE AEE EEEAAEEAAEAERAAEEEAAAEREREREREEEEEEEEEE 
(4) TEST 53 DAC3 CALIBRATION 
(4) SRRARAAAAEAARERAEEAEEAE EERE AAAEEAAREAAAAAARERAAERAEAEEAEREEEEEREEE 
(3) 005434 000004 18153: SCOPE 
(2) 005436 012737 000001 001160 MOV #1,Siarics 2:00 1 ITERATION 
(1) 005444 004537 006104 JSR RS.CALDAC :LOAD AND EXECUTE CALIBRATION 
(1) 005450 001430 DAC3 [DAC ADDRESS 
(1) 005452 000015 *CHANNEL # FOR RESULTS 





o*. 


| 
| 


MAINDEC=11~CNAAA~A 
*CNAAAA.P11 


oa 
~w 
mw 
WN 


6 


E&OE EOP PPP PPR EOP PR PRP OR PRO PPP OR PRP PPP OP LPP Pe Pe Pe Oe PS 


AS cae a dk ed ed ed ed ed ed ed me IN et a ck a dd ad ed ed td ot 2 2s = a FL 
Ne ee we ee ee eee ee a ee wr ew 


62 


005454 


27-DEC-82 


000004 


001102 


02 
100000 


005561 
001202 


005556 
000042 


001202 


MACY11 30(1046) 


DAC3 CALIBRATION 


-SBTTL END OF PASS ROUTINE 


Cement 4 tue os8!0!C0€U%2C~SCS:” 


{INCREMENT ie PASS NUMBER ($PASS 


s*TYPE “END PA 
:*1F THERES A sp TO 


;*IF THERE ISN'T 


SEOP: 


SEOPCT: 


SENDCT: 


SCOPE 
CLR 


$GET42: MOV 


SENDAD: JS 


SDOAGN: 
_ SRTNAD: 


SENULL 


INIT?: 





: BYTE 
SENDMG: 


JUMP TO INIT? 


STSTNM 
STIMES 


SPASS 
#100000, $PASS 
(PC)+ 

S$DOAGN 
(PC)+,a¢PC)+ 
SENDMG 
$PASS,-(SP) 
»SENULL 
#42,R0 
$DOAGN 
PC, (RO) 


a(PC)+ 
INIT? 


<1§5¢155/END Pass # 


WFTST 

1$ 

ERRTOT 
SERTTL,=(SP) 
ME SGD 

BADUNT ,=(SP) 
INIT1 
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SS #XXXXX"" see XXX IS A DECIMAL NUMBER) 
R GO TO IT 


a THE TEST NUMBER 
ZERO THE NUMBER OF ITERATIONS 
ZINCREMENT THE PASS NUMBER 
::DON'T ALLOW A NEG. NUMBER 


33YES 
:sRESTORE COUNTER 


setts “END PASS #°° 
AVE SPASS FOR TYPEOUT 
3360 Ie mal coetactaa WITH SIGN 


7 RETURN 


sR CHARACTER STRING 


TEST IF ON TESTER 


33SAVE BADUNT FOR TYPEOQUT 
3360 ee: ey i ASCII 
sTEST IT AGAIN 


SEQ 0037 
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MAINDEC-11-CNAAA=A AAV11 
CNAAAA.P11 =. 27=DEC=82 14:25 END OF PASS ROUTINE SEQ 0038 
6235 
6236 .SBTTL SUBROUTINE TO ADJUST THE DAC'S OFFSET POTS 
6238 005634 012537 005762 OFFDAC: MOV (R5)+,10$ :GET BUS ADDRESS 
6239 005640 017737 000116 005762 MOV a10$,10$ : 
6240 005646 013737 005762 007002 MOV 10$ BACBAD :LOAD BUS ADDRES IF ERROR 
6241 005654 012537 005672 MOV (ROS a $ GET POINTER TO ASCII MESSAGE 
6242 005 012537 005712 MOV 128 iGET POINTER TO RES. MESSA GE 
6243 005 012537 005732 MOV (R23 ¢° 13$ ‘GET AND SAVE CHANNEL 
6244 005670 104401 TYPE [TELL OPERATOR TO SELECT DAC N 
6245 005672 010726 11$:  SELDO 
6246 005674 004537 006212 JSR RS,SNDVLT :LOAD A VOLTAGE OF NS.1200 VOLTS. 
6247 005700 011064 N51200 
6248 005702 012777 000000 000052 MOV #0000,a10$ :LOAD THE SELECTED DAC TO NULL 
6249 005710 104401 TYPE ;TELL OPERATOR TO ADJUST RXX FOR NULL 
6250 005712 010552 12$: ADJR46 
6251 005714 004737 006422 1$: JSR ACE :WAIT UNTIL THE Is yREAny 
6252 005720 012737 000000 001124 MOV #000, ScbpAt SLOAD EXPECTED V 
6253 005726 004537 006302 JSR R5,CONVRT SSAMPLE THE CHANNEL 
6254 005732 000013 13$: 13 
6255 005734 012737 000002 007016 MOV #2, SPREAD 
6256 005742 004737 006520 JSR PC.COMPAR TEST RESULTS 
6257 005746 000404 BR 2$ R IF WITHIN THE LIMIT 
6258 005750 104006 ERROR 6 sSELECTED’ BAC OFFSET POT WAS NOT ADJUSTED INCORRECTLY 
6259 005752 104401 TYPE 
6260 005754 011016 TRYAGN 
6261 005756 000756 BR 1$ :LOOP AGAIN 
6262 005760 000205 2$: RTS RS EXIT 
6265 005762 000000 10$: 0 
6265 .SBTTL SUBROUTINE TO ADJUST THE GAIN ADJUSTMENT POTS 
6267 005764 012537 006102 GAIDAC: MOV (R5)+,10$ :GET BUS ADDRESS 
6268 005770 017737 000106 006102 MOV a10$,10$ 
6269 005776 013737 006102 007002 MOV 10$,0ACBAD ZLOAD BUS ADDRESS IF ERROR 
70 012537 MOV (R55+,11$ :GET ASCII RES. ADDRESS 
6271 006010 012537 00605 MOV (R5)+.12$ [GET CHANNEL 
6272 006014 004537 00621 JSR R5,SNOVLT [LOAD + 5. ii7s VOLTS 
6273 006020 011077 P51175 
SPs SBS Hlecgy 007777 sey, #7777-a08 AMD GPERRNGe wut wax v0 aowst FoR mL 
6276 006032 010376 11$:  ADJR34 
6277 006034 004737 00642 1$: JSR th :WAIT FOR OPERATOR 
$278 006040 012737 007777 001124 MOV art 7 7 SGDDAT SLOAD EXPECTED 
006046 004537 006302 JSR [CONVERT THE VALUE 
006052 000013 12$: 13 
6281 006054 012737 000002 007016 MOV a ceawie :LOAD LIMIT 
6282 006062 004737 006520 JSR PC. COMPAR STEST RESULTS 
006 BR WITHIN LIMITS 
ERROR sSELECTED’ BAC Ueatn POT WAS NOT ADJUSTED PROPERLY 
TRYAGN 
BR 1$ 
RTS RS EXIT 
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MAINDEC=11=CNAAA=A AAVI1 
CNAAAA.P11 27=DEC=82 14:25 SUBROUTINE TO ADJUST THE GAIN ADJUSTMENT POTS SEQ 0039 
6291 
Oc -SBTTL SUBROUTINE TO TEST THE D/A CALIBRATION 
6294 006104 012537 006210 CALDAC: MOV (R5)+,10$ 2GET BUS ADDRESS 
6295 006110 017737 000074 006210 MOV 210$,10$ 
6296 006116 013737 006210 007002 MOV 10$, DACBAD LOAD BUS greases IF ERROR 
yg344 006124 012537 006150 MOV (R55+,11$ ;GET CHANNEL 
6299 006130 012777 007400 000052 MOV #7400,a10$ sLOAD THE DAC 
osne 006136 012737 007400 001124 MOV #7400, $GDDAT ;LOAD THE EXPECTED VALUE 
6302 006144 004537 006302 1$: JSR RS, CONVRT SAMPLE THE CHANNEL 
630 006150 000013 118: 13 -- 
6305 006152 012737 000003 007016 MOV #3, SPREAD Lo LOAD TOLERANCE 
6306 006160 004737 006520 JSR PC COMPAR ~ 3 TEST THE RESULTS 
6307 006164 000401 BR os > sBR 
6308 006166 104010 ERROR 10 ;NON=LINEARITY in DAC 4 1149 
6309 006170 162777 000400 000012 2$: SUB #400 ,a10$ ADJUST THE CONTENTS 
6310 006176 162737 000400 001124 SUB #400, S$GDDAT ;ADJUST THE EXPECTED 
6311 006204 001357 BNE 1$ 338R IF NOT DONE 
este 006206 000205 RTS R5 sEXIT 
ate: 006210 000000 10$: 0 
osi¢ -SBTTL SUBROUTINE TO LOAD A VOLTAGE INTO THE VOLTAGE SOURCE 
6318 006212 012500 SNDVLT: MOV (R5)+,RO LOAD THE POINTER 
6339 006214 112001 2s: MOVB (RO)+,R1 GET SOME DATA 
6320 006216 001421 BEQ 3$ 3BR IF_TERM 
6321 006220 110177 000576 MOVB R1,aFILZ LOAD THE DATA 
6322 006224 012701 001000 MOV #1000,R1 
6323 006230 005301 5$: » BEC R1 :DELAY 
6324 006232 001376 BNE 5$ 
6325 006234 052777 000200 000560 BIS 1 Hg ke sSET BIT 7 
6326 006242 012701 001000 MOV £1009. sLOAD DELAY 
6327 006246 005301 1$: DEC :DELAY 
6328 006250 001376 BNE "§ 
6329 006252 042777 000200 000542 BIC #B117,aFILZ 
6330 006260 000755 BR 2s 
6332 006262 012701 000000 3$: MOV #0,R1 sLOAD DELAY 
6333 006266 152777 000177 000526 BISB #177 ,aFILZ DISABLE BITS 
6334 006274 005301 4$: DEC R1 :DELAY 
6335 006276 001376 BNE 4$ 
06300 000205 RTS RS sEXIT 


a -_—-— — 


— eee 
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MAINDEC-11=CNAAA=A AAV11 
CNAAAA.P11 —- 27=DEC=82 14:25 SUBROUTINE TO LOAD A VOLTAGE INTO THE VOLTAGE SOURCE SEQ 0040 
6339 
6340 .SBTTL SUBROUTINE TO CONVERT CHANNEL N ON THE TESTER A/D 
6342 006302 012537 006414 CONVRT: MOV (R5)+,10$ sGET THE CHANNEL # 
6343 006306 000337 006414 SWAB 
6344 006312 042737 170377 006414 BIC #170377, 108 ;MASK OUT OTHER BITS 
6345 006320 013777 006414 000500 MOV  10$, @ADCS ;SELECT CHANNEL 
6346 006326 003037 006416 CLR 11 
6347 006332 012737 000200 006420 MOV © #BIT7,12$ ;LOAD SHIFT COUNTER 
6348 006340 105277 000462 1$:  INCB— @ADCS CONVERT CHANNEL 
6349 006344 105777 000456 2$: TSTB  aaDCS ;WAIT FOR DONE 
6350 006350 100375 BPL so $ 
6351 006352 067737 000452 006416 ADD = @ADBR, 118 sUPDATE CONVERSION 
6352 006360 006237 006420 ASR «128 ;FINISHED ? 
6353 006364 001365 BNE 1$ 
6354 00025 ccc 
6355 006370 006037 006416 ROR 118 
6356 006374 006237 006416 ASR «118 
6357 006400 006237 006416 ASR «118 ; JUSTIFY DATA 
6358 006404 013737 006416 001126 MOV 118, SBDDAT LOAD ACTUAL <ADJUSTED> 
6359 006412 000205 RTS RS 3EXIT 
6361 006414 000000 10$: 0 
6362 006416 000000 11$: 0 
6363 006420 000000 128: 0 
$362 -SBTTL SUBROUTINE TO LOOP UNTIL OPERATOR TYPES AN ‘SPACE’ 
6367 006422 104401 007746 CSPACE: TYPE, LDSPAC TELL OPERATOR TO HIT SPACE BAR 
006426 012737 000014 006516 3$: MOV 414,118 LOAD DELAY COUNTER 

6369 006434 005037 006514 CLR =—-108 
6370 006440 105777 172500 1$:  TSTB  — a$TkS ;WAIT FOR OPERATOR 
6371 006444 100410 BMI $ iBR IF FLAG IS SET 
6372 006446 005337 006514 DEC —-:'108 :DELAY 
6375 006452 001372 BNE 1$ ;BR IF NOT DONE 
6374 006454 005337 006516 DEC =—s«d18 DELAY AGAIN 
6375 006460 001367 NE 1$ 
6376 006462 104014 ERROR 14 sWAKE UP OPERATOR 
6377 006464 000760 BR 38 zk 
6378 006466 0177537 172454 006514 28: MOY © STK, 108 ;READ THE CHARACTER 
6379 006474 042737 177600 006514 BIC #177600, 108 :MASK OF OTHER BITS 

340 006503 029737 000040 006514 CMP = #40, 108 FEST FOR SPACE 
6381 006510 001346 BNE 38 LOOP 
6382 006512 000207 RTS = PC EXIT 
6383 006514 000000 10$: 0 

006516 000010 11$: _BIT3 
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11 
CNAAAA.P11 27-DEC=82 14:25 SUBROUTINE TO LOOP UNTIL OPERATOR TYPES AN ‘'SPACE”’ SEQ 0041 


6387 
6388 .SBTTL SUBROUTINE TO COMPARE TWO LOCATIONS BY THE SPREAD 
6390 906520 010046 COMPAR: MOV RO,=(SP) 3 SAVE RO 
6391 006522 010146 MOV R1,<(SP) AVE R1 
639 006524 013700 001124 MOV $GDDAT,RO Ger EXPECTED VALUE 
6393 006530 013701 001126 MOV SBDDAT,R1 3GET THE UNKNOWN 
6394 006534 160100 SUB R7,RO s SUBTRACT 
6395 006536 100001 BPL AG 
6396 006540 005400 NEG RO 
6397 006542 020037 007016 8$: CMP RO, SPREAD :TEST IF DIFFERENCE IF > SHAN SPREAD 
6398 006546 003405 BLE 10$ 
6399 006550 012601 9$: MOV isp)e, R1 ;RESTORE R1 
6400 006552 012600 MOV (SP)+-RO SRESTORE RO 
6401 006554 062716 000002 ADD a2, (SP) SMAKE AN ERROR EXIT 
6402 006560 000207 RTS EXIT 
6404 006562 012601 10$: MOV (SP)+,R1 
6405 006564 012600 MOV (SP)+,RO 
6406 006566 000207 RTS PC zEXIT FOR GOOD LIMIT TEST 
6414 .SBTTL FULL SCALE RAMP ON EACH RAMP 
6416 006570 012706 001100 FULRMP: MOV #STACK,SP ;LOAD POINTER 
6417 006574 004737 001746 JSR PC,LOTRAP SLOAD BUS ADDRESS 
6418 006600 013700 001422 1$: MOV DACO,RO :GET BUS” ADDRESS 
6419 006604 004737 006642 JSR PC, 10$ LOAD THE RAMP ON DAC #1 
6420 006610 915700 901424 MOV DAC1_RO GET BUS” ADDRESS 
6421 006614 004737 006642 JSR PC, 10$ sLOAD THE RAMP ON DAC #1 
6422 006620 013700 001426 MOV DAC2,RO :GET BUS” ADDRESS 
6423 006624 004737 006642 JSR PC, 10$ OAD THE RAMP ON DAC #2 
6424 006630 013700 001430 MOV DAC3,RO :GET THE ‘BUS ADDRESS 
6425 006634 004737 006642 JSR pc. 108 LOAD THE RAMP ON DAC #3 
6426 006640 000757 BR $ BR BACK 
6428 006642 005010 10$ CLR (RO) ICLEAR DAC 
6429 006644 062710 000010 11$ ADD #10, (RO) SUPDATE THE DATA 
6430 006650 005710 TST (ROS sTEST IF DONE 
1 006652 001374 BNE 11$ “BR IF 
6432 006654 000207 RTS PC EXIT 
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MAINDEC=11=CNAAA=A AAV11 
CNAAAA.P11—-27=DEC=82 14:25 FULL SCALE RAMP ON EACH RAMP SEQ 0042 

6434 
6435 
$38 .SBTTL STATIC DAC CALIBRATION 
6438 006656 012706 001100 STATIC: MOV #STACK,SP ;LOAD STACK POINTER 
6439 006662 004737 001746 JSR PC, LDTRAP LOAD BUS ADDRESSES 
6440 006666 104410 1$: CKSWR ‘TEST FOR CTRL G 
6441 006670 017700 172244 MOV aswR,RO SREAD SUI TCHES 
6442 006674 010077 172522 MOV RO,aDACO [LOAD DAC 40 
6443 700 010077 172520 MOV RO, aDAC1 ‘LOAD DAC #1 
6444 006704 010077 172516 MOV RO, aDAC2 SLOAD DAC #2 
6445 006710 010077 172514 MOV RO, aDAC3 SLOAD DAC #3 
6446 006714 000764 BR 1$ 
6448 .SBTTL DYNAMIC DAC CALIBRATION 
6450 006716 012706 001100 DYNCAL: MOV #STACK,SP LOAD STACK POINTER 
6451 006722 004737 001746 JSR PC,LDTRAP ‘LOAD BUS ADDRESSES 
6452 006726 104410 1$: CKSWR [TEST FOR cr LG 
6453 006730 017700 172204 MOV asuR RO TREAD SWR 
6454 006734 004737 006750 JSR C,10$ *LOAD THE SWR VALUE TO ALL DACS 
6455 006740 005000 CLR RO” “CLEAR R 
6456 006742 004737 006750 JSR PC,10$ SLOAD ALL DAC'S WITH 0 
6457 006746 000767 BR 1$ 
6459 006750 010077 172446 10$: MOV RO. aDACco ;LOAD DAC #0 
6460 006754 010077 172444 MOV apAcl [LOAD DAC #1 
6461 006760 010077 17244 MOV Spats SLOAD DAC 4 
6462 006764 010077 17244 MOV SLOAD DAC # 
6463 006770 012700 000020 MOV ‘LOAD DELAY COUNTER 
6464 006774 005300 11$: DEC 420, [DELAY 
6465 006776 100376 BPL 11$ SWAIT 
6466 007000 000207 RTS PC EXIT 
6468 007002 174440 DACBAD: ABASE 
6469 007004 000000 BADUNT: 0 
6470 007006 000004 NUMBOK: 4. 
6471 007010 000001 MASKNM: BITO 
6472 007012 0 TEMP: 0 
6473 007014 000000 STEMP: 0 
6474 007016 00 SPREAD: 0 
6475 007020 0 WETST: 0 
6476 007022 167772 FILZ2: 167772 
6477 007024 167774 DRIN: 167774 
6478 007026 170500 ADCS: 170500 

007030 170502 ADBR: 170502 
6480 007032 00574 V5744: 5744 
6481 007034 000144 V164: 144 

002034 V2034: 2034 
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CNAAAA.P11 27-DEC=-82 14:25 SEQ 0043 
6491 
| 6492 
6495 .SBTTL ASCII MESSAGES 
6495 007040 005015 040412 053101 TITLE: .ASCIZ <15><12><12>"AAV11 DIAGNOSTIC TEST, (MAINDEC-11-CNAAA=A0) '<15><12> 
046 030461 042040 040511 
007054 047107 051517 044524 
7062 020103 042524 052123 
007070 020054 046450 044501 
007076 042116 041505 030455 
104 026461 047103 040501 
007112 026501 030101 006451 
007120 000012 
6496 007122 052502 020123 044524 EM1: .ASCIZ /BUS TIME-OUT WHEN REFERENCING A DAC ADDRESS/ 
007130 042515 047455 052125 
07136 053440 042510 020116 
007144 042522 042506 042522 
007152 041516 047111 020107 
007160 020101 040504 020103 
07166 042101 051104 051505 
007174 000123 
6497 007176 040504 030103 051040 EM2:  .ASCIZ /DACO REGISTER IN ERROR/ 
007204 043505 051511 042524 
007212 020122 047111 042440 
007220 051122 051117 000 
6498 007225 104 041501 020061 EM3:  .ASCIZ /DAC1 REGISTER IN ERROR/ 
007232 042522 044507 052123 
907240 051105 044440 020116 
007246 051105 047522 000122 
6499 007254 040504 031103 051040 EM4:  .ASCIZ /DAC2 REGISTER IN ERROR/ 
007262 043505 051511 042524 
007270 020122 047111 042440 
007276 051122 051117 000 
6500 007303 104 041501 020063 EMS:  .ASCIZ /DAC3 REGISTER IN ERROR/ 
007310 042522 044507 052123 
007316 051105 044440 020116 
007324 051105 047522 000122 
6501 007332 042523 042514 052103 EM6: eASCIZ /SELECTED DAC OFFSET POT WAS ADJUSTED INCORRECTLY/ 
007340 042105 042060 041501 
007346 047440 043106 042523 
007354 020124 047520 020124 
007362 040527 020123 042101 
007370 052512 052123 042105 
007376 044440 041516 051117 
007404 042522 052103 054514 
6502 007413 123 046105 041505 EM7: .ASCIZ /SELECTED DAC GAIN POT WAS ADJUSTED INCORRECTLY/ 
007420 042524 020104 040504 
007426 020103 040507 047111 
7434 050040 052117 053440 
007442 051501 040440 045104 
7450 051525 042524 020104 
007456 047111 047503 051122 
007464 041505 046124 000131 
6503 007472 042523 042514 052103 EM10: .ASCIZ /SELECTED DAC HAS A LINEARITY PROBLEM/ 
007500 042105 042060 041501 
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ASCII MESSAGES SEQ 0044 


040440 


| MAINDEC=11=CNAAA=A 
CNAAAA.P11—-27=DEC-82 


007506 
oor ess 046040 


007536 
6504 007537 053 
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! 0530460 EM11: .ASCIZ /+15 VOLT SUPPLY IS INCORRECT/ 
4 
1 
007566 5 
6505 1678} The: 047526 EM12: .ASCIZ /=15 VOLT SUPPLY IS INCORRECT/ 


6506 tas 104 041501 021 EM13:  .ASCIZ /DAC #3 DIGITAL OUTPUT BITS IN ERROR/ 


6507 007675 007 0034 


EM14:  .ASCIZ <7><7><7>/WAKE UP OPERATOR AND ADJUST THE POT/<7><7> 


6508 007746 LDSPAC: .ASCIZ / DEPRESS THE ‘’SPACE-BAR'* WHEN DONE/ 
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MSGSW: .ASCII <7><15><12>/TESTER SWi-2 AND SW1-5 ONLY MUST BE ON/ 


6510 0062 00640 eASCII = <7><15><12>/SW2-2 SW2-4 AND SW2-5 MUST BE ON/ 
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6511 eASCIZ <15><12><7>/CONNECT AAV11 TO JO9 OF TESTER ONLY/<15><12> 
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6512 ERRTOT: .ASCIZ / # ERRORS/ 
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AAV11 
| CNAAAA.P11 27=DEC=82 14:25 ASCII MESSAGES SEQ 0045 
010204 051117 000123 
6513 910210 041040 042101 052440 MESGD: .ASCIZ / BAD UNITS / 
010216 044516 051524 000040 
| 6514 010224 015 012 FOUND1: .BYTE 15,12 
6515 010226 051120 043517 040522 .ASCIZ /PROGRAM DETECTED / 
010234 020115 042504 042524 
010242 052103 042105 000040 
6516 010250 034050 004451 040501 FOUND2: .ASCIZ /(8) AAVI1(S) / 
010256 030526 024061 024523 
010264 020040 000 
6517 010267 105 051122 041520 DH1: .ASCIZ /ERRPC BUSADR EXPECT WAS/ 
010274 041011 051525 042101 
010302 020122 042440 050130 
010310 041505 020124 020040 
010316 040527 000123 
6518 010322 051105 050122 004503 DH2: .ASCIZ /ERRPC BUSADR/ 
910330 052508 040523 051104 
6519 010337 105 051122 041520 DHé6: .ASCIZ /ERRPC BUSADR EXPECT WAS SPREAD/ 
010344 041011 051525 042101 
010352 004522 054105 042520 
010360 052103 053411 051501 
010366 051411 051120 040505 
010374 000104 
6523 010376 005015 040440 045104 ADJR34: .ASCIZ <15><12>/ ADJUST R34 FOR A NULL / 
(1) 010406 051525 020124 031522 
(1) 010412 020064 047506 020122 
(1) 010420 920101 052516 046114 
(1) 010426 020040 00 
6524 010431 015 020012 042101 ADJR35: .ASCIZ <15><12>/ ADJUST R35 FOR A NULL / 
(1) 010436 052512 052123 051040 
(1) 010444 032463 043040 051117 
(1) 010452 040440 047040 046125 
(1) 010460 020114 000040 
6525 010464 005015 040440 045104 ADJR36: .ASCIZ <15><12>/ ADJUST R36 FOR A NULL / 
(1) 010472 051525 020124 031522 
(1) 010500 020066 047506 020122 
(1) 010506 020101 052516 046114 
(1) 010514 020040 000 
6526 010517 015 020012 042101 ADJR37: .ASCIZ <15><12>/ ADJUST R37 FOR A NULL / 
(1) 010524 052512 052123 051040 
(1) 010532 033463 043040 051117 
(1) 010540 040440 047040 046125 
(1) 010546 020114 000040 
6527 010552 005015 04 045104 ADJR46: .ASCIZ <15><12>/ ADJUST R46 FOR A NULL / 
(1) 010560 051525 020124 032122 
(1) 010566 020066 047 020122 
(1) 010574 020101 052516 046114 
(1) 010602 020040 
6528 010605 015 020012 042101 ADJR47: .ASCIZ <15><12>/ ADJUST R47 FOR A NULL / 
(1) 010612 052512 Oogle 051040 
(1) 010620 133464 043040 051117 
(1) 010626 440440 047040 046125 
(1) 010634 020114 000040 
6529 010640 005015 040440 045104 ADJR48: .ASCIZ <15><12+/ ADJUST R48 FOR A NULL / 
(1) 010646 051525 020124 032122 
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ASCII MESSAGES 


ADJR49: .ASCIZ 


SELDO: 


SELD1: 


SELD2: 


SELD3: 


TRYAGN: 


N51200: 


P51175: 


DT1: 
DT2: 


DT3: 
DT4: 
DTS: 
DT6: 
DFO: 


- SBTTL 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 


STX=1 
ETX=3 
BYTE 
ASCII 


-BYTE 
-BYTE 
ASCII 


-EVEN 
SERRPC, 


SEQ 0046 


<15><12>/ ADJUST R49 FOR A NULL / 


<15><12>/SELECT DACO/ 
<15><12>/SELECT DACT/ 
<15><12>/SELECT DAC2/ 
<15><12>/SELECT DAC3/ 


<15><12>/ADJUST THAT SAME POT AGAIN PLEASE/<15><12> 


STX 
/N512000V/ 
ETX,0 

STX 
/P511750v/ 
ETX,0 


SERNPEDACO. SGDDAT, SBDDAT,,0 

SERRPC ,DAC1, $GDDAT, SBDDAT,0 

SERRPC ,DAC2, $GDDAT , SBDDAT 0 

SERRPC ,DAC3,$GDDAT, SBDDAT,0 

SERRPC ,DACBAD , SGDDAT , SBDDAT , SPREAD ,0 
0.0,0.0,0,0,0,0 


BINARY TO ASCII AND TYPE ROUTINE 


-MAINDEC=11-CNAAA-A _ AAV11 ~~ DIAGNOSTIC MACY11 30(1046) 27-06 82 14:27 PAGE 84-4 

CNAAAA.P11 27=DEC=82 14:25 BINARY TO ASCII AND TYPE ROUTIN SEQ 0047 
(2) FRAAAAAAAAAAAAHAAAHERHAAEHEERAEREAEEEHEEHEREKEEAEKEAeeeeeeeKeeene 
(1) CSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
Ht i sBINARY@ASCII NUMBER AND TYPE IT. 
(1) ;* MOV NUMBER , = (SP) szNUMBER TO BE TYPED 
4 3% TYPBN scTYPE IT 
(1) 011224 010146 STYPBN: MOV R1,-(SP) 33SAVE | R1 ON THE STACK 
(1) 011226 016601 000006 MOV 6(SP),R1 23GET THE INPUT Ay 
(1) 011232 000261 SEC sSET ‘'C’* SO CAN KEEP TRACK OF THE NUMBER OF BITS 
(1) 011234 112737 000060 011276 1$: MOVB #°0O,$BIN TISET Coreg hh TO AN ASCII ‘0"*. 
(1) 011242 006101 ROL a4 3:GET THIS BIT 
(1) 011244 001406 BEQ 2s 3 DONE? 
(1) 011246 105537 011276 ADCB SBIN t:NO=-SET ie CHARACTER EQUAL TO THIS BIT 
(1) 011252 104401 011276 TYPE -$BIN 2260 Big Bi HIS 
(1) 011256 000241 CLC 3st "sO ~ KEEP TRACK OF BITS 
(1) 011260 000765 BR 7% $y 00 THE NEXT BIT 
(1) 011262 012601 23: MOV (SP)+,R1 rt THE STACK INTO R1 
(1) 011264 016666 000002 000004 MOV 2(SP) ,4(SP) + SADJUST THE STACK 
(1) 011272 012616 MOV (SP)+, (SP) 
(1) 011274 000002 Li oe 3 RETURN TO USER 
(1) 011276 000 000 $BIN 0,0 TORAGE FOR ASCII CHAR. AND TERMINATOR 

“ "SBTTL cONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(2) FRRAAAAAAARAEAAAAEEEAAEEAE EA EAEEEAAAEAAAAAAEEEEAEAAEOHAEREEEEEEE 
(1) tS THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
(1) ; *S1GNED ee) (ASCII) NUMBER AND TYPE IT. grt ON WHETHER THE 
(1) 3: *NUMBER SITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) + *BEF ORE ThE PP aRst DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
oT? ; #REPLACED WITH SPACES. 
*@ L: 

(1) 3* MOV NUM, -(SP) 7;PUT THE BINARY NUMBER ON THE STACK 
Ht 3t TYPDS ::G0 TO THE ROUTINE 
(1) 011300 $TYPDS: 
(3) 011300 010046 MOV RO,-(SP) 37PUSH RO ON STACK 
(3) 011302 010146 MOV R1,-(SP) 77PUSH R1 ON STACK 
(3) 011304 010246 MOV R2,-(SP) :7PUSH R2 ON STACK 
(3) 011306 010346 MOV R3,-(SP) :zPUSH RS ON STACK 
(3) 011310 010546 MOV R5,-(SP) 77PUSH RS ON STACK 
(1) 011312 012746 020200 MOV #20200,-(SP) 33;SET BLANK SWITCH AND SIGN 
(1) 011316 016605 000020 MOV 20(SP),R5 3:;GET THE INPUT NUMBER 
(1) 011322 100004 BPL 1$ 33 IF INPUT 
(1) 011324 005405 NEG RS 7;MAKE THE BINARY NUMBER POS. 
(1) 011326 112766 000055 000001 MOVB #'=,1(SP) 7:MAKE THE ASCII NUMBER NEG. 
(1) 011334 005000 1$: CLR RO 33;ZERO THE CONSTANTS ipex 
(1) O11 378 915798 011514 MOV 74 ae R3 37; SETUP THE OUTPUT POINTER 
(1) 011342 112723 000040 MOVB (R3)+ ::SET THE FIRST CHARACTER TO A BLANK 
(1) 011346 005002 23: CLR R2 7:CLEAR THE BCD NUMBER 
(1) 011350 016001 011504 MOV SDTBL(RO),R1 3;GET THE CONSTANT 
(1) 011354 160105 3$: SUB R1,R5 3 3FORM THIS BCD DIGIT 
(1) 011356 OP SSb5 BLT 4$ BR IF 
(1) 011360 pO2e8 INC R2 +: INCREASE THE BCD DIGIT BY 1 
(1) 011362 000774 BR 3$ 
(1) 011364 060105 4$: ADD R1,R5 32ADD BACK THE CONSTANT 
(1) 011366 005702 TST R2 7: CHECK IF BCD DIGIT=0 
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CNAAAA.P11 —-27=DEC=82 14:25 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0048 
| 011370 001002 BNE 5$ ::FALL THROUGH IF 0 
011372 105716 TSTB 3s (SP) :3STILL DOING LEADING 0°S? 
011374 10040 BMI $3 ::BR IF YES 
011376 106316 5$: ASLB =: (SP) i :MSD? 
011400 103003 BCC 6$ BR IF 
011402 116663 000001 177777 MOVB =: 1( SP) ,=1(R3) jsYESm=SET THE SIGN 
011410 052702 000060 6$: BIS #'0,R2 MAKE THE B60 DIGIT ASCII 
011414 05270¢ 000040 7$: BIS , ‘Re MAKE IT A SPACE IF NOT ALREADY A DIGIT 
011420 11022 MOVB —R2, (R3)+ tIPUT THIS CHARACTER IN THE OUTPUT BUFFER 
011422 005720 TST (RO) + t:JUST INCREMENTING 
011424 020027 000010 CMP RO,#10 t:CHECK THE TABLE INDEX 
011430 002746 BLT 2$ 7:60 DO THE NEXT DIGIT 
011432 00300 BGT 3 1:60 TO EXIT 
011434 010502 MOV R5,R2 33GET TH 
011436 BR A% O CHANGE TO ASCII 
011440 105726 8$: TSTB = (SP) + 3 IWAS THE LSD THE FIRST NON-ZERO? 
011442 100003 BPL ‘BR IF NO 
011444 116663 177777 177776 MOVB  -1(SP),-2(R3) 2: YES--SET THE SIGN FOR TYPING 
011452 105013 9$: CLRB ss (R3) ::SET THE TERMINATOR 
011454 012605 MOV (SP)+,R5 ::POP STACK INTO R5 
011456 012603 MOV (SP)+_.R3 ::POP STACK INTO R3 
011460 012602 MOV (SP) +.R2 ::POP STACK INTO R2 
011462 0126 MOV (SP)+,R1 ::POP STACK INTO R1 
011464 012600 (SP)+-RO 33POP STACK INTO RO 
011466 104401 011514 TYPE SDBLK [NOW TYPE THE ER 
011472 016666 000002 000004 MOV 3(SP) ,4(SP) S:ADJUST THE STACK 
o11208 B80s ard meh te RETURN TO USER 
011504 aterd $DTBL: 0000. 
011506 001750 1000. 
011510 000144 : 
011512 000012 
011514 000004 


$DBLK: .BLK 4 
-SBTTL SCOPE HANDLER ROUTINESTARS 
seTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
7 SAND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
THE SWITCH OPTIONS Stee BY THIS ROUTINE ARE: 


ee ce) ee et ek ek ek ek ek A et ae kd med mk Ll LA AN ad ad a nk ad td td et ot od 


LEB BBB PPO PPP PPR OR PLP PAPA PALO RP LLL ee Pe PP oy my 
er er ee as a er es ee ee ee ee le le a es OY ee Yew 


: LOOP ON TEST 
:*SW11=1 INHIBIT ITERATIONS 
s*eSwO9=1 LOOP ON ERROR 
+ *SwO8=1 LOOP ON TEST IN SWR<7:0> 
7 *CALL 
* SCOPE 7; SCOPE=10T 
011524 SSCOPE: 
011524 104410 CKSWR z:TEST FOR CHANGE IN SOFT=SwR 
011526 104410 CKSWR 
011530 032777 040000 167402 1S: BIT #B1T14,aSwWR :LOOP ON PRESENT TEST? 
011536 001114 BNE V “VES IF Sw14=1 
;HHMANSTART OF CODE FOR THE XOR féstensssne 
011540 000416 $XTSTR: BR 6$ 331F RUNNING ON THE “'XOR' TESTER CHANGE 
cits INSTRUCTION TO A "NOP’* (NOP=240) 
011542 013746 000004 MOV a#ERRVEC,-(SP) tI SAVE THE CONTENTS OF AME ERROR VECTOR 
011546 012737 011566 000004 MOV #5$,aWERRVEC  3:SET FOR TIMEOUT 
011 5737. 17706 TST a#177060 :: TIME OUT ON XOR? 


re —— 
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'CNAAAA.P11—-.27=DEC=82 14:25 SCOPE HANDLER ROUTINESTARS SEQ 0049 
| (1) 011560 012637 000004 MOV (SP) +, a#ERRVEC ; sRESTORE THE ERROR VECTOR 
011564 000463 BR $SVLAD THE NEXT TES 
| (1) 011566 «0226 6 S$: CMP (SP)+, (SP)+ OPE AR THE STACK AFTER A TIME OUT 
/ (1)-:011570 012637 000004 MOV (SP) + awERRVEC Z]RESTORE THE ERROR VECTOR 
| (1) 011574 000423 BR 7$ “LOOP ON THE PRESENT TEST 
| G) 011576 6$:;A#HAHEND OF CODE FOR THE XOR TESTERAMMAS 
(1) 011576 032777 000400 167334 BIT #B1T08,aSwR ;3LOOP ON SPEC. TEST? 
| (1) 011604 001404 BEQ $ BR IF NO 
(1) 011606 127737 167326 001102 CMPB ss @SWR, STSTNM S:0N THE RIGHT TEST?  SWR<7:0> 
(1) 0116146 001465 BEQ SOVER i YES 
(1) 011616 105737 001103 2$: TSTB —- SERFLG 7ZHAS AN ERROR OCCURRED? 
(1) 011622 001421 BEQ 3 7:BR IF NO 
| 011624 123737 001115 001103 CMPB = SERMAX,SERFLG MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) 011632 101015 BHI <BR IF N 
(1) 0116346 032777 001000 167276 BIT ¥B1T09,aSWR 33LOOP_ON ERROR? 
(1) 011642 001404 BEQ 4 <BR IF N 
(1) 011644 013737 001110 001106 7s: MOV SLPERR,SLPADR  ::SET LOOP ADDRESS TO LAST SCOPE 
(1) 011652 000446 BR SOVER 
| (1) 011654 105037 001103 4$: CLRB = SERFLG 33ZERO THE ERROR FLAG 
(1) 011660 005037 001160 CLR STIMES :CLEAR_ THE NUMBER OF ITERATIONS TO MAKE 
(1) 011664 00041 BR 1 tTESCAPE TO THE NEXT TEST 
(1) 011666 032777 004000 167244 3S: BIT #B1T11,aSWR INHIBIT. ITERATIONS? 
(1) 011674 001011 BNE 1$ 7:BR IF YES 
(1) 011676 005737 001202 TST $PASS 331F FIRST PASS OF PROGRAM 
(1) 011702 0014 BEQ 1$ 3: INHIBIT ITERATIONS 
(1) 011704 005237 001104 INC SICNT INCREMENT ITERATION COUNT 
(1) 011710 023737 001160 001104 CMP STIMES,SICNT = CHECK THE NUMBER OF ITERATIONS MADE 
(1) 011716 9020 4 BGE SOVER [BR IF MORE ITERATION REQUIR 
(1) 011720 012737 000001 001104 1$: MOV #1, $1CNT :EREINITIALIZE THE. ITERATION COUNTER 
(1) 011726 013737 012004 001160 MOV SMXCNT,S$TIMES ::SET NUMBER OF ITERATIONS TO DO 
(1) 011734 105237 001102 $SVLAD: INCB  $TSTNM’ ::COUNT TEST NUMBERS 
(1) 011740 113737 001102 001200 MOVE —STSINM-STESTN ::SET_TEST NUMBER IN APT MAILBOX 
(1) 011746 011637 001106 MOV (SP) ,SLPADR T:SAVE SCOPE LOOP ADDRESS 
(1) 011752 011637 001110 MOV (SP) -SLPERR SAVE ERROR LOOP ADDRESS 
(1) 011756 005037 001162 CLR SESCA Le :CLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) 011762 112737 000001 001115 Move #1, SERM [ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 011770 013777 001102 167144 SOVER: MOV STSTNM, aDISPLAY i DISPLAY TEST NUMBER 
(1) 011776 013716 001106 MOV SLPADR. (SP) S:FUDGE RETURN ADDRESS 
(1) 012002 00000 RTI? zi] XES PS 
(1) 012004 003720 $MXCNT: 2000. T:MAX. NUMBER OF ITERATIONS 
6560 .SBITL ERROR HANDLER ROUTINE 
(2) 3 3 EAAAAAAAAAAAAAAAAAAAAAAAEAAEAAAAEAARAAARARAEARAAAAEAEAAEAAAAERAEREREE 
(1) [*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) [*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) 7*AND GO TO SERRTYP ON ERR 
cD jeTHE SWITCH OPTIONS $ PROVIDED BY THIS ROUTINE ARE: 
(1) + eSW13=1 WMHIBTt ERROR TYPEOUTS 
(1) + *SW10=1 BELL ON ERROR 
(1) *5W09=1 LOOP ON ERROR 
(1) > *CALL 
i) 3 ERROR N S;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 912006 SERROR: 
(1) 012006 104410 CKSwWR s:TEST FOR CHANGE IN SOFT=SwWR 
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167040 


001214 
012134 


166760 


ERROR HANDLER ROUTINE 


BIS MASKNM, BADUNT 
7$: INCB  —- SERFLG 
BEQ 7$ 
MOV STSTNM,a@DISPLAY 
BIT #B1T10.aSWR 
BEQ 1$ 
TYPE $BELL 
1$: INC $ERTTL 
MOV (SP) , SERRPC 
SUB 
MOVB  aSERRPC,SITEMB 
BIT #BIT13,aSWR 
BNE 20 
JSR PC, SERRTYP 
TYPE  ,$CRLF 
208: 
CMPB #APTENV, SENV 
MOVB SITEMB. 218 
JSR PC,$AT 
21$: -BYTE O 
"BYTE 0 
22$: BR 22$ 
2$: TST aSWR 
BPL 3$ 
HALT 
CKSWR 
38: BIT #B1T09,aSwR 
BEQ 4$ 
MOV SLPERR, (SP) 
4$: TST SESCAPE 
BEQ 5$ 
a MOV SESCAPE, (SP) 


RTI 
LSBTTL ERROR MESSAGE TYPEOUT ROUTINE 


tae a i. FLAG 
T LET THE FLAG GO TO ZERO 
tEDISPLAY 34 a AND ERROR FLAG 
+ sBELL ON _ 


3 RING a 
3 COUNT THE NUMBER OF ERRORS 
ZiGET ADDRESS OF ERROR INSTRUCTION 


ssSTRIP AND -~ "S Deca ITEM CODE 
SKIP TYPEOUT IF 

::SKIP_TYPEOUTS 

3:G0 TO USER ERROR ROUTINE 


3sRUNNING IN APT MODE 

32NO,SKIP APT ERROR REPOR 

7ST ITEM ER AS ERROR NUMBER 
;:REPORT FATAL ERROR TO APT 


3 gAPT ERROR LOOP 


3sHALT ON 
:iTES! FOR CHANGE IN SOF T=SwR 
a a ERROR SWITCH SET? 


sie RETURN FOR LOOPING 
escnete FOR AN ESCAPE ADDRESS 


33BR_ IF NONE 
+ RUDGE RETURN ADDRESS FOR ESCAPE 
>RETURN 


FRRERAAERAAAAEAEAAEAAETEAEA EERE AAAERERAAAEAERERERAEREREEEAEAEEE 


i STHIS ROUTINE USES THE ‘ITEM cone BYTE" ceiterm) TO DETERMINE WH 


*ERROR IS TO BE REPORTED. IT 


TAINS, FROM THE ‘ERROR yas" (SERRTBD, 


THEN OB 
Z*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR 


SERRTYP: 
TYP -SCRLF 
MOV RO,-(SP) 
CLR 
B1SB a#S1TEMB,RO 
BNE 1$ 
MOV SERRPC,-(SP) 
TYPOC 
BR 6$ 

1$: DEC RO 
ASL RO 


is "CARRIAGE RETURN’ & “LINE FEED" 
::PICKUP THE ITEM INDEX 


eelt yren mpees is ZERO, JUST 
THE PC OF THE ERROR 

2S SAVE SERRPC FOR TYPEOUT 

es ADDRESS 

P+ ates ASCIICALL DIGITS) 


; ADJUST THE joes SO THAT IT WILL 
33 WORK FOR THE ERROR TABLE 


SEQ 0050 


— ee eee 
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CNAAAA.P11 —- 27=DEC=82 14:25 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0051 
(1) 012236 006300 ASL. ——RO 
(1) 012240 062700 001256 ADD.  #$ERRTB,RO z:FORM TABLE POINTER 
(1) 012264 012037 012254 MOV: = (RO) +, 28 ::PICKUP "ERROR MESSAGE" POINTER 
(1) 012250 001404 BEQ , © 38 ::SKIP TYPEOUT IF NO POINTER 
(1) 012252 104401 TYPE | i:TYPE THE "ERROR MESSAGE 
(1) 012254 000000 2$: .wORD 0. 3:'ERROR MESSAGE'’ POINTER GOES HERE 
(1) 912256 104401 001171 TYPE  ,$CRLF 3 CARRIAGE RETURN'’ & ‘LINE FEED 
(1) 012262 012037 012272 3$: MOV (RO) +,4$ ::PICKUP "DATA HEADER’ POINTER 
(1) 012266 001404 BEQ 5$ i: SKIP TYPEOQUT IF 0 
(1) 012270 104401 TYPE ::TYPE THE DATA HEADER 
(1) 012272 000000 4$: «WORD 0 Dar ATA HEADER’ P POINTER GOES HERE. 
(1) 012274 104401 001171 TYPE  ,$CRLF Z:'CARRIAGE RETURN’ & "LINE FEED 
(1) 012300 011000 5$: MOV (RO) ,RO ;PICKUP "DATA TABLE’ POINTER 
(1) 012302 001004 BNE 0 TYPE THE DATA 
(1) 012304 012600 6$: MOV (SP)+,RO t:RESTORE RO 
(1) 012306 104401 001171 TYPE  ,$CRLF is CARRIAGE RETURN’ & "LINE FEED" 
(1) 012312 000207 RTS PC + :RETURN 
(1) 012314 7$: 
(2) 012314 013046 MOV @(RO)+,-(SP) ;SAVE a(RO)+ FOR TYPEOUT 
(2) 012316 104402 TYPOC £:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 012320 005710 TST (RO) t:1S THERE ANOTHER NUMBER? 
(1) 012322 001770 era 6$ ::BR IF NO 
(1) 012324 104401 012332 (YPE 8$ t:TYPE TWO(2) SPACES 
(1) 012330 000771 BR 7$ LOOP 
(1) 012332 020040 000 8$: eASCIZ / / +:TWO(2) SPACES 
(1) 012336 “EVEN 

6562 .SBTTL POWER DOWN AND UP ROUTINES 

(2) FARRER EAEAEEE EEE REAR EREREERAEEEAAREEEEEEREEEEEREREE 
(1) “POWER DOWN ROUTINE 
(1) 012336 012737 012502 000024 $PWRDN: MOV #SILLUP,a#PWRVEC ::SET FOR FAST UP 
(1) 012344 012737 000300 000026 MOV #PR6, AMPWRVEC+2 ; :PRIO: 26 
(3) 012352 010046 MOV RO,-(SP) USH RO ON STACK 
(3) 012354 010146 MOV R1.=(SP) - OUSH R1 ON STACK 
(3) 012356 010246 MOV R2,-(SP) 3: R2 ON STACK 
(3) 012360 010346 MOV R3,-(SP) +:PUSH R3 ON STACK 
(3) 012362 010446 MOV R4,=(SP) 33 R4 ON STACK 
(3) 012364 010546 MOV R5,-(SP) [PUSH RS ON STACK 
(3) 012366 017746 166546 MOV asur,-(SP) 3 sPUSH @SWR ON STACK 
(1) 012372 010637 012506 MOV SP, $SAVR6 sSAVE SP 
(1) 012376 012737 012410 000024 MOV #SPURUP ,a#PWRVEC’ et 4 UP VECTOR 
(1) 012404 000000 HALT 
(1) 012406 000776 BR 72 ZHANG UP 
(2)  REAEAAAAAEAAEAAEAAAEEEEEATAAAEAAAERAAKCAAAAAARAEKEAAEARAEAEREREEEEAEEEE 
(1) “POWER uP ROUTINE 
(1) 012610 012737 012502 000024 §$PwRUP: Mo #SILLUP QePURVEC -SET FOR FAST DOWN 
(1) 012416 013706 012506 mov SSAVR6,SP T SP 
(1) 012422 005037 012506 CLR SSAVRE tIWAIT LOOP FOR THE TTY 
(1) 012626 0052 7 012506 1$: INC SSAVRO SIWAIT FOR THE INC 
(1) 012432 001375 BNE 1 [:0F WORD 
(3) 012634 012677 166500 MOV (SP)* .asue 3 POP STACK INTO a@SwWR 
(3) 012440 012605 MOV STACK INTO R5 
(3) 012442 012604 MOV (SP) +. RS 3 POP STACK INTO R4 
(3) 012444 012603 MOV (SP)+-R3 ::POP STACK INTO R3 
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CNAAAA.P11 27-DEC=82 14:25 POWER DOWN AND UP ROUTINES SEQ 0052 
(3) 012446 012602 MOV (SP)+,R2 ¢ POP STACK INTO R2 
(3) 012450 012601 MOV (SP)*, *R1 P STACK INTO R1 
(3) 012452 012600 MOV +-RO ‘bop STACK INTO RO 
(1) 012454 012737 012336 000024 MOV seounon a#PWRVEC’ ::SET UP THE POWER DOWN VECTOR 
(1) 012462 012737 000300 000026 MOV #PR6, AHPWRVEC+2 ;:PRIO 76 
(1) 012470 104401 TYPE s REPORT THE POWER FAILURE 
(1) 012472 012510 SPWRMG: .WORD PWRMSG +: POWER FAIL MESSAGE POINTER 
(1) 012474 012716 MOV (PC) +, (SP) SIRESTART A T BEGIN 
(1) 012476 001450 S$PWRAD: .WORD BEGIN ::RESTART ADDRESS 
(1) 012500 000002 RTI 
(1) 012502 000000 SILLUP: HALT z2THE POWER UP SEQUENCE WAS STARTED 
(1) 012504 000776 BR .72 z: BEFORE THE POWER DOWN WAS COMPLETE 
(1) 012506 000000 SSAVR6: 0 3;PUT THE SP HERE 
6563 012510 005015 042522 052123 PWRMSG: .ASCIZ <15><12>/RESTARTING AFTER A POWER FAILURE/<15><i2><12> 
012516 051101 044524 043516 
012524 040440 052106 051105 
012532 040440 050040 053517 
012540 051105 043040 044501 
012546 052514 042522 005015 
012554 000012 
6564 .EVEN 
6566 ~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


RARER AREER EAE A AAA EAA REA AAA ARRERERAREA RARER REET 

SS THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*0CTAL (ASCII) NUMBER AND TYPE IT 

we HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


1=TYPE LEADING ZEROS 
: TO=SUPPRESS LEADING ZEROS 


3 *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i ¥$T¥POS OR $TYPOC 


*C 

* MOV NUM, =(SP) NUMBER TO BE TYPED 

* TYPOS SICALL FOR HB ld 

* -BYTE N 33N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
* -BYTE M™ 33M=1 OR 0. 

* 

® 

:t 


Cee hte ete ee ae a a ee ae te i ee i ee ee i ee ee et ee ee ee ee a ee a i a a 
ee ee ce me ek ee me me me me ee ce ee eed ee ee ed ed ed ed ed eed eed FL) 
ee ee ee a a es et a ee ee ee ee ee ee es es a ee ee ee a ee ee ee a a ele ele le 


3* MOV NUM, =(SP) s;NUMBER TO BE TYPED 

i S:CALL FOR TYPEOUT 

{$TYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

*® 

. te MOV NUM, =(SP) s;NUMBER TO BE TYPED 

7* TYPOC S:CALL FOR TYPEOUT 
012556 017646 000000 _ $TYPOS: MOV a(SP),-(SP) ;PICKUP THE MODE 
012562 116637 00000; 273001 MOVB =: 1(SP). SOF ILL 33LOAD ZERO FILL SWITCH 
012570 112637 013003 MOVB  (SP)+.$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
012574 062716 000002 ADD #2, (SP) SSADJUST RETURN ADDRESS 
012600 000406 BR TYPON 
012602 112737 000001 013001 $TYPOC: MOVB 4#1,$0FILL zi $67 THE ZERO FILL SWITCH 
012610 112737 0000 13003 MOVB #6. $OMODE+1 33SET FOR S1X(6) DIGITS 
012616 112737 000005 013000 $TYPON: MOVB #5.$OCN7 338 SET 1 THe ITERATION COUNT 
012624 010346 MOV R3,-(SP) 7:38 
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002 000000 SOMODE : 0 z;NUMBER OF DIGITS TO TYPE 
- SBTTL iVPE ROUTINE 


Piri iri iiiiiiriiiiiiriisy) 

 SROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH AO 8B ovre 

 *THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

3 *NOTE1: SNULL CONTAINS i. eal te TO BE USED AS THE FILLER CHARACTER. 


MAINDEC=11=CNAAA=A AAV11 
CNAAAA.P11 —-27=DEC=82 14:25 BINARY TO OCTAL (ASCII) AND T SEQ 0053 

(1) 012626 010446 MOV R4,=(SP) 33 SAVE R4 

(1) 012630 010546 MOV R5.=(SP) [SAVE RS 

(1) 012632 113704 013003 MOVB SomODE 1. R4 +:GET THE NUMBER OF DIGITS TO TYPE 

(1) 012636 005404 NEG R4 

(1) 012640 062704 000006 ADD #6,R4 is SUBTRACT IT FOR MAX. ALLOWED 

(1) 012644 110437 013002 MOVB 4, $OMODE t:SAVE IT FOR USE 

(1) 012650 113704 013001 MOVB $0FILL,R4 ':GET THE FERO FILL SWITCH 

(1) 012654 016605 000012 MOV 12(SP)_RS ::PICKUP THE INPUT NUMBER 

(1) 012660 005003 CLR R3 ::CLEAR THE OUTPUT WORD 

(1) 012662 006105 1$: ROL R5 33ROTATE MSB INTO "'C 

(1) 012664 000404 BR 3$ :G0 DO MSB 

(1) 012666 006105 2$: ROL RS ::FORM THIS DIGIT 

(1) 012670 006105 ROL RS 

(1) 012672 006105 ROL 5 

(1) 012674 010503 MOV R5,R3 

(1) 012676 006103 3$: ROL R3 ::GET LSB OF THIS DIGIT 

(1) 012700 105337 013002 DECB  $OMODE *:TYPE THIS DIGIT? 

(1) 012704 100016 BPL +:BR IF NO 

(1) 012706 042703 177770 BIC #177770,R3 33GET RID OF JUNK 

(1) 012712 001002 BNE 4$ 0 

(1) 012714 005704 TST R4 : SUPPRESS THIS 0? 

(1) 012716 001403 BEQ 5% 

(1) 012720 005204 4$: INC RG 33 DON" T SUPPRESS ANYMORE 0'S 

(1) 012722 052703 000060 BIS #°0,R3 t:MAKE THIS DIGIT ASCI 

(1) 012726 052703 000040 5$: BIS #° °R3 S:MAKE ASCII IF NOT ALREADY 

(1) 012732 110337 012776 MOVB = R3,, BS ii SAVE FOR TYP 

(1) 012736 104401 012776 TYPE é TYPE THIS DIGIT 

(1) O127h2 105357 013000 7$: DECB ©: $OCNT tICOUNT BY 

(1) 012746 003347 BGT 2$ 336R IF MORE TO DO 

(1) 012750 002402 BLT 6$ [BR IF DONE 

(1) 012752 005204 INC RG :EINSURE LAST DIGIT ISN'T A BLANK 

(1) 012754 000744 BR 2$ £:G0 DO THE LAST DIGIT 

(1) 012756 012605 6$: MOV (SP)+,R5 T:RESTORE RS 

(1) 012760 012604 MOV (SP)+.RG s:RESTORE R4 

(1) 012762 012603 MOV (SP)+.R3 S:RESTORE R3 

(1) 012764 016666 000002 000004 MOV 2(SP).4(SP) 7:SET THE STACK FOR RETURNING 

(1) 012772 012616 MOV (SP)+, (SP) 

(1) 012774 000002 RTI + RETURN 

(1) 012776 000 8$: .BYTE 0 t:STORAGE FOR ASCII DIGIT 

(1) 012777 000 BYTE 0 ?: TERMINATOR FOR TYPE ROUTINE 

(1) 013000 000 SOCNT: :BYTE 0 S:O0CTAL DIGIT C 

(1) 013001 000 SOF ILL: -BYTE 0 $:ZERO FILL SWITCH 

(1) 013 

567 

(1) 

(2) 

(1) 

w 

(1) + *NOTE SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

(1) + *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

ba 

(1) S*CALL: 

(1) 3*1) USING A TRAP INSTRUCTION 

CD) C. TYPE  ,MESADR ZIMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

3* 
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CNAAAA.P11 27-DEC=82 14:25 TYPE ROUTINE SEQ 0054 
(1) i* TYPE 
(1) i* ME SADR 
(1 “* 
(1) 013004 105737 001157 $TYPE: TSTB STPFLG 31S THERE A TERMINAL? 
(1) 013010 100002 BPL 1$ $3 FY 
(1) 013012 000000 HALT 3;HALT HERE IF NO TERMINAL 
(1) 013014 000430 BR 3$ 2 sLEAVE 
(1) 013016 010046 1$: MOV RO,-(SP) 33SAVE RO 
(1) 013020 017600 000002 MOV @2(SP) ,RO 33GET ADDRESS OF ASCIZ STRING 
(1) 013024 122737 000001 001214 CMPB #APTENV, SENV 3;RUNNING IN APT MOD 
(1) 013032 001011 BNE 62$ 33NO,GO CHECK FOR APT CONSOLE 
(1) 013034 132737 000100 001215 BITB #APTSPOOL ,SENVM ;;SPOOL MESSAGE TO APT 
(1) 013042 001405 BEQ 62$ 33 CHECK FOR CONSOLE 
(1) 013044 010037 013054 MOV RO,61$ ;:SETUP MESSAGE ADDRESS FOR APT 
(1) 013050 004737 014152 JSR PC ,SATY3 72SPOOL MESSAGE TO APT 
(1) 013054 000000 61$: . WORD 3sMESSAGE ADDRESS 
(1) 013056 132737 000040 001215 628: BITB #APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
(1) 013064 001003 BNE 33YES,SKIP TYPE OUT 
(1) 013066 112046 2$: MOVB (RO)+,=(SP) 33;PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 013070 001005 BNE 4% 338R IF IT ISN'T THE TERMINATOR ' 
(1) 013072 005726 TST (SP)+ 331F TERMINATOR POP IT OFF THE STACK 
(1) 013074 012600 60$: MOV (SP)+,RO 3RESTORE RO 
(1) 013076 062716 000002 3$: ADD #2, (SP) 3;ADJUST RETURN PC 
(1) 013102 000002 RTI 3 sRETURN 
(1) 013104 122716 000011 4$: CMPB #HT, (SP) 3;BRANCH IF <HT> 
(1) 013110 001430 BEQ 
(1) 013112 122716 000200 CMPB #CRLF (SP) 3;BRANCH IF NOT <CRLF> 
(1) 013116 001006 BNE 
(1) 013120 005726 TST (SP>+ 33POP_ <CR><LF> EQUIV 
(1) 013122 104401 TYPE 33 TYPE A CR AND LF 
(1) 013124 001171 SCRLF 
(1) Bi si¢s 105037 013262 CLRB SCHARCNT 33;CLEAR CHARACTER COUNT 
(1) 013132 000755 BR 33;GET_NEXT CHARACTER 
(1) 013134 004737 013216 5$: JSR PC ,STYPEC 33G0 TYPE THIS CHARACTER 
(1) 013140 As37e6 001156 6$: CMPB SFILLC,(SP)+ 31S IT TIME FOR FILLER CHARS.? 
(1) 013144 001350 BNE 2s 321F NO GO GET NEXT CHAR. 
(1) 013146 013746 001154 MOV SNULL ,=(SP) 33GET # OF FILLER CHARS. NEEDED 
(1) 33AND THE NULL CHAR. 
(1) 013152 105366 000001 7$: DECB 1(SP) 33;DOES A NULL NEED TO BE TYPED? 
(1) 013156 002770 BLT $ 33BR IF NO--GO POP THE NULL OFF OF STACK 
(1) 013160 004737 01321 JSR PC ,STYPEC 33:G0 TYPE A NULL 
(1) 013164 105357 01326 DECB SCHARCNT 33D0 NOT COUNT AS A COUNT 
4 013170 000770 BR 4) ee 
38 HORIZONTAL TAB PROCESSOR 
(1) 013172 112716 0 8$: MOVB #° ,(SP) 3;REPLACE TAB WITH SPACE 
(1) 013176 004737 013216 9$: JSR PC, $TVPEC ze TYPE A SPACE 
(1) 013202 132737 007 013262 BITB #7, SCHARCNT :3;BRANCH IF NOT AT 
(1) b13515 001372 BNE oS ae STOP 
(1) 013212 005726 TST (SP)+ :3POP SPACE OFF STACK 
(1) Bt eSie O76. BR $ 32GET_NEXT CHARACTER 
(1) 013 18 105777 165726 STYPEC: TSTB asTPS 3;WAIT UNTIL PRINTER IS READY 
(1) 013222 100375 PL STYPEC 
(1) 013224 116677 000002 165720 MOVB 2(SP) ,aSTPB 3;LOAD CHAR TO BE TYPED INTO DATA REG. 
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CNAAAA.P11 —-.27=DEC=82 14:25 TYPE ROUTINE SEQ 0055 
(1) 
(1) 013232 120766 000015 000002 CMPB #CR,2(SP) r71S CHARACTER A CARRIAGE RETURN? 
(1) 013240 00100 BNE $ N 
(1) 013242 105037 013262 CLRB = $CHARCNT i EYES==CLEAR CHARACTER COUNT 
(1) 013246 000406 BR STYPEX x 
(1) 013250 122766 000012 000002 1$: CMPB ss LF, 2(SP) 3318 CHARACTER A LINE FEED? 
(1) 013256 001402 BEQ STYPEX 33 NCH IF YES 
(1) 013260 105227 INCB = (PC) + ‘COUNT THE CHARACTER 
(1) 013262 000000 SCHARCNT:.WORD 0 :: CHARACTER COUNT STORAGE 
(1) 013264 000207 STYPEX: RTS PC 
3 
6568 .SBTTL TTY INPUT ROUTINE 
(2) FERRARA EERAARERAEEEEEEEEEREREREAEAEREEREREEEEREREEEEREEREEEEEEE 
(1) 
(1) 
(1) .ENABL LSB 
(2) FARRAR ERAEERRRRAEEARERERAEEEREREEREREREEREEEREREEEREEEEEEEEEE EE 
(1) + SSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
(1) S*ROUTINE IS ENTERED FROM THE TRAP HANDLER, WILL 
(1) S*eSERVICE THE TEST FOR CHANGE IN SOFTWARE SuiTcH REGISTER TRAP CALL 
(1) **WHEN OPERATING IN TTY FLAG MODE. 
(1) 013266 022737 000176 001140 $CkKSWR: CMP #SWREG, SWR 3531S THE SOFT~SWR SELECTED? 
(1) 013274 001074 BNE 15$ 7:BRANCH IF NO 
(1) 013276 105777 165642 TSTB © aSTKS 3 CHAR THERE ? 
(1) 013302 100071 BPL 15$ 33 DON'T WAIT AROUND 
(1) 013304 117746 165636 MOVB  a$TKB,=(SP) 33 ove THE 
(1) 013310 042716 177600 BIC #°C177, (SP) t:STRIP-OFF THE ASCII 
(1) 013314 022726 000007 CMP #7, (SP5+ ::1S IT A CONTROL G? 
(1) 013320 001062 BNF 1 +:NO, RETURN TO USER 
(1) 013322 123727 001134 000001 CMPB  —s« $AUTOB,, #1 S:ARE WE RUNNING IN AUTO-MODE? 
(1) 013330 001456 BEQ 15$ ::BRANCH IF YES 
(1) 013332 104401 014013 TYPE  ,$CNTLG z:ECHO THE CONTROL=G (*G) 
(1) 013336 104401 014020 SGTSWR: TYPE  ‘$MSWR ::TYPE CURRENT CONTENTS 
(2) 013342 013746 000176 MOV SWREG,-(SP) t:SAVE SWREG FOR TYPEOUT 
(2) 013346 104402 TYPOC $:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 013350 104401 014031 TYPE ,$MNEW +:PROMPT FOR NEW SWR 
(1) 013354 005046 19$: CLR =(SP) *:CLEAR COUNTER 
(1) 013356 005046 CLR -(SP) 
(1) 33 THE NEW SWR 
(1) 013360 105777 165560 7$: TSTB. 0 aSTKS z:CHAR THERE? 
(1) 013364 100375 BPL 7$ +:IF NOT TRY AGAIN 
(1) 013366 117746 165554 MOVB = a$TKB, =(SP) z:PICK UP CHA 
(1) 013372 042716 1776 BIC #°C177, (SP) S:MAKE IT ae ASCII 
tf 
(1) 013376 021627 000025 9$: CMP (SP) ,#25 :1S IT A CONTROL=U? 
(1) 013402 001005 BNE 10$ : BRANCH IF NOT 
(1) 013404 104401 014006 TYPE  ,$CNTLU YES, ECHO CONTROL-U (“U) 
(1) 013410 062706 000006 20$: ADD #6,SP t: IGNORE PREVIOUS INPUT 
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000757 


021627 


000707 
1044061 
000720 


000015 
000004 
000002 
ie 
001171 
001135 
000100 
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000002 


000002 
177776 
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000001 
165456 


000002 


000004 
000004 
000023 


10$: 


17$: 


18$: 
BR 
-DSABL LSB 
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BR 19$ s;LET'S TRY IT AGAIN 
CMP (SP) #15 r:1S ITA <cR>? 
BNE 16$ 3 SBRANCH IF 
TST 4(SP) t:YES, 1S IT O He FIRST CHAR? 
BEQ 11$ S:BRANCH IF YES 
MOV 2(SP),aswR t:SAVE NEW SWR 
ADD #6,SP S:CLEAR UP STACK 
TYPE SCRLF +:ECHO <CR> AND <LF> 
CMPB ss S$ INTAG #1 +:RE-ENABLE TTY KBD INTERRUPTS? 
BNE 15$ +:BRANCH IF NOT 
MOV #100, aSTKS + RE-ENABLE TTY KBD INTERRUPTS 
RTI = :RETUR 
JSR PC ,STYPEC t:ECHO CHAR 
CMP (SP) , #60 *:CHAR < 0? 
BLT 18$ +:BRANCH IF YES 
CMP (SP) ,#67 z:CHAR > 7? 
BGT 18$ S:BRANCH IF YES 
BIC #60, (SP)+ t:STRIP=OFF ASCII 
TST 2(SP) t:1S THIS THE FIRST CHAR 
BEQ 17$ : BRANCH IF YES 
ASL (SP) [:NO, SHIFT PRESENT 
ASL (SP) t: CHAR OVER TO MAKE 
ASL (SP) t: ROOM FOR NEW ONE. 
INC 2(SP) ::KEEP COUNT OF CHAR 
BIS =2(SP), (SP) t:SET IN NEW CHAR 
BR ‘ t:GET THE NEXT ONE 
TYPE SQUES si TYPE 2?<CR><LF> 
0$ t:SIMULATE CONTROL-U 


FERRARA AAAAEAAEEAAEEAAEE AEE AEE AERERAAERAEEEAEEREREEEEEEEEEEEREEE 


PSTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*CALL: 
;* RDCHR z INPUT A SINGLE CHARACTER FROM THE TTY 
* RETURN HERE T:CHARACTER IS ON THE STACK 
te “:WITH PARITY BIT STRIPPED OFF 
$RDCHR: MOV (SP) ,=(SP ZPUSH DOWN THE PC 

MOV 4(SP5,2¢S 13 SAVE THE PS 
1$: TSTB asiKs WAL 

BPL 1$ TIA CHARACTER 

MOVB  a$TKB,4(SP) :EREAD T HE TTY 

BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 

CMP 4(SP) #23 :1S IT A CONTROL=S? 

3$ :7BRA CH IF NO 

2$: TSTB = @STKS WAIT FOR A CHARACTER 

BPL 2$ ::LOOP UNTIL ITS THERE 

MOVB = a$TKB,- HARAC 


BNE 2$ THIF NOT DISCARD IT 
BR 1$ 33VES, RESUME 


SEQ 0056 


a 


2} 
i ae 


ee 
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EC-11 
A.P11 —-27=DEC=92 14:25 TTY INPUT ROUTINE SEQ 0057 
) 013640 026627 000004 000140 38: CMP 4(SP),#140 ri1$ 17 UPPER CASE? 
) 013646 002407 BLT 4$ 33BRANCH IF YES 
) 013650 026627 000004 000175 CMP 4(SP) ,#175 t1S IT A SPECIAL CHAR? 
» 013656 003003 BGT 4$ : SBRANCH IF YES 
) 013660 042766 000040 000004 BIC #40,4(SP) MAKE IT UPPER CASE 
» 013666 000002 4: RTI +:G0 BACK TO USER 
) FARRER RAAAAAARAEAEE EE AEEE AE EREARERAAERERAAEEREEAAAEREREREEEEEE 
gaTHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 
-* 3 
) ie RDLIN z: INPUT A STRING FROM THE TTY 
) it RETURN HERE S:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
te 7: TERMINATOR WILL BE A BYTE OF ALL O'S 
) 013670 010346 SRDLIN: MOV R3,-( Z:SAVE R3 
) 013672 012703 013776 1$: MOV RettviN a3 ety ADDRESS 
) 013676 022703 014006 2$: CMP SSTTVINGS. .R3 i ;BUFFER FULL? 
) 013702 101405 BLOS 4$ ::BR IF YES 
» 013704 104411 RDCHR 3:G0 READ ait CHARACTER FROM THE TTY 
» 013706 112613 MOVB  (SP)+,(R3) 33GET CHARACTER 
) 013710 122713 000177 10$:  CMPB  #177,(R3) tIS IT A A yeouT 
) 013714 001003 BNE 3$ 33 SKIP IF NOT 
) 013716 104401 001170 4$: TYPE SQUES STYPE A '?° 
) 013722 000763 BR is ‘:CLEAR THE BUFFER AND LOOP 
) 013724 111337 013774 3$: MOVB = (R3),9$ S:ECHO THE CHARACTER 
) 013730 104401 013774 TYPE =, 
) 013734 122723 000015 CMPB «#15, (R3)+ :3CHECK FOR RETURN 
) 013740 001356 BNE 2$ SLOOP IF NOT RETURN 
) 013742 105063 177777 CLRB 0s = 1(R3) FECLEAR RETURN (THE 15) 
) 013746 104401 001172 TYPE ,SLF [:TYPE A LINE FEED 
) 013752 012603 MOV (SP)+,R3 t:RESTORE R 
) 013754 011646 MOV (SP) ,-(SP) t:ADJUST THE STACK AND PUT ADDRESS OF THE 
) 013756 016666 000004 000002 MOV 4(SP5,2(SP) 3: FIRST ASCII CHARACTER ON IT 
) 013764 012766 013776 000004 MOV #STTYIN,4(SP) 
) 013772 000002 RTI + :RETURN 
» 013774 000 9$: .BYTE 0 :3STORAGE FOR ASCII CHAR. TO TYPE 
» 013775 000 “BYTE 0 ERM 
) 013776 000010 STTYIN: .BLKB 8. ; SRESERVE 8 BYTES FOR TTY INPUT 
» 014006 052536 005015 000 $CNTLU: -ASCIZ /*u/<152<12> —-: ;CONTROL ‘'U"' 
) 014013 136 006507 000012 $CNTLG: .ASCIZ /*G/<15><12>  =:CONTROL ''G’’ 
) 014020 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = 
) 014026 020075 0 
) 014031 040 047040 053505 $MNEW: .ASCIZ / NEW = 
) 014036 036440 000040 
9 -SBTTL READ AN OCTAL NUMBER FROM THE TTY 
) FRA AAA EREEAAEAAEAAEHREEAAAAEEAAAEAAAEEAAEREREEREEERERAEAEE 
) [*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
) i s CHANGE IT TO BINARY. 
o* : 
) 3* RDOCT z:READ AN OCTAL NUMBER 
) it RETURN HERE 7:LOW ORDER BITS ARE ON TOP OF THE STACK 
? [*BITS ARE IN $SHIOCT z:HIGH ORDER 
) 0140462 011646 SRDOCT: MOV (SP) ,=(SP) i PROVIDE SPACE FOR THE 
) 014044 016666 000004 000002 MOV 4(SP§,2(SP) T NUMBER 
) 014052 010046 MOV RO,-(§P} +:PUSH RO ON STACK 
» 014054 010146 MOV R1.=(SP) +:PUSH R1 ON STACK 
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CNAAAA.P11 =. 27=DEC=82 14:25 READ AN OCTAL NUMBER FROM THE SEQ 0058 
(3) 014056 010246 MOV R2,-(SP) : PUSH R2 ON STACK 
(1) 014060 104412 1$: RDLIN ::READ AN ASCIZ LINE 
(1) 014062 012600 MOV (SP)+,RO ':GET ADDRESS OF 1ST CHARACTER 
(1) 014064 005001 CLR R1 [CLEAR DATA WORD 
(1) 014066 005002 CLR R2 
(1) 014070 112046 2$: MOVB  (RO)*,=(SP) i PICKUP THIS CHARACTER 
(1) 014072 001412 BEQ 3$ F ZERO GET OUT 
(1) 014074 006301 ASL R1 it} 
(1) 014076 006102 ROL R2 
(1) 014100 006301 ASL R1 r3%6 
(1) 014102 006102 ROL R2 
(1) 014104 006301 ASL R1 33%8 
(1) 014106 006102 ROL R2 
(1) 014110 042716 177770 BIC #*C7, (SP) :zSTRIP THE ASCII JUNK 
(1) 014114 062601 ADD (SP)+,R1 s:ADD IN THIS DIGIT 
(1) 014116 000764 BR 2$ 7 ;LOOP 
(1) 014120 005726 3$: TST (SP)+ ':CLEAN TERMINATOR FROM STACK 
(1) 014122 010166 000012 MOV R1,12(SP) t:SAVE THE RESULT 
(1) 014126 010237 314142 MOV R2.$HIOCT 
(3) 014132 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(3) 014134 012601 MOV (SP)+.R1 +:POP STACK INTO R1 
(3) 014136 012600 MOV (SP)+,RO :3P0p STACK INTO RO 
(1) 014140 2 RTI RETU 
(1) 014142 000000 SHIOCT: .WORD 0 man ORDER BITS GO HERE 
6970 .SBTTL APT COMMUNICATIONS ssunid 
(2) SS RAAAEAAEEAAAAEAEEAEEEAEAEEEREEREAAAAEAAEAAAEREAERAEAAEAAEEERERERERE 
(1) 014144 112737 000001 014410 $ATY1: MOVB 4#1,$FFLG ::10 REPORT FATAL ERROR 
(1) 014152 112737 000001 014406 $ATY3: MOVB #1.$MFLG 0 TYPE A MESSAGE 
(1) 014160 000403 BR SATYC 
(1) 014162 112737 000001 014410 SATY4: MOVB #1,$FFLG z2T0 ONLY REPORT FATAL ERROR 
(1) 014170 SATYC: 
(3) 014170 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 014172 010146 MOV R1,-(SP) [PUSH R1 ON STACK 
(1) 014174 105737 014406 TSTB © SMFLG i SHOULD ripe A MESSAGE? 
(1) 014200 001450 BEQ $ SIF NOT: 
(1) 014202 122737 000001 001214 CMPB = HAPTENV, SENV : SOPERATING UNDER APT? 
(1) 014210 001031 BNE 4 NOT: BR 
(1) 014212 132737 000100 001215 BITB §§ #APTSPOOL,SENVM 3 SHOULD SPOOL MESSAGES? 
(1) 014220 001425 BEQ $ :IF NOT: BR 
(1) 014222 017600 000004 MOV a4(SP),RO SIGE MESSAGE ADDR. 
(1) 014226 062766 000002 000004 ADD #2,4(SP) BUMP RETURN ADDR. 
(1) 014234 005737 001174 1$: TST SMSGTYPE ::SEE IF “BONE W/ LAST XMISSION? 
(1) 014240 001375 BNE 1$ S:1F NOT: WAIT 
(1) 014242 010037 001210 MOV RO, SMSGAD 
(1) i ::PUT ADDR IN MAILBOX 
(1) 014246 105720 zs: STB 2 (ROD + ::F IND END OF MESSAGE 
(1) 014250 001376 BNE $ 
(1) 014252 163700 001210 SUB SMSGAD,RO ;3SUB START OF MESSAGE 
(1) 014256 006200 ASR RO [GET MESSAGE LNGTH IN WORDS 
(1) 014260 010037 001212 MOV RO, SMSGLGT i EPUT LENGTH IN MAILBOX 
(1) 014264 012737 000004 001174 MOV #4. SMSGTYPE *:TELL APT TO TAKE MSG. 
(1) 014272 000413 BR 
(1) 014274 017637 000004 014320 35: MOV a4 (SP) . 34s :PUT MSG ADDR IN JSR LINKAGE 
(1) 014302 062766 000002 000004 ADD #244 RETURN ADDRESS 
(3) 014310 013746 177776 MOV 1 sare “(SP) ::PUSH 16 ON STACK 
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(1) 014370 
| CD) 014376 
| (3) 014400 
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APT COMMUNICATIONS ROUTINE 


4$: 
5$: 
108: 
118: TST 


12$: CLRB 


SMFLG: .BYTE 
S$LFLG: .BYTE 


SFFLG: .BYTE 
-EVEN 


APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


PC ,STYPE 
0 


SFFLG 
1 
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3sCALL TYPE MACRO 


STF NOT REPORT FATAL ERROR? 


as ae UNDER APT? 
:EEINISHED LAST MESSAGE? 
NOT: _— 
3GET ERROR # 
URN ADDR. 


;BUMP RET 
73 TELL abt TO TAKE ERROR 
3sCLEAR FATAL FLAG 
3;CLEAR LOG FLAG 
3;CLEAR MESSAGE FLAG 
3sPOP STACK INTO R1 
33POP STACK INTO RO 
3 ;RETURN 
3MESSG. FLAG 


SZFATAL FLAG 


SEQ 0059 
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MAINDEC-11=CNAAA@A red 

CNAAAA.P11 27=DEC=82 14:25 APT COMMUNICATIONS ROUTINE SEQ 0060 
6573 
et -SBTTL TRAPS DECODER 


~ 


IPII Titi iii iii, 

SS THIS ROUTINE WILL PICKUP THE Lose ort OF a **TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
[*OF THE DESIRED ROUTINE. THEN USING. THE ADDRESS OBTAINED IT WILL 
7*GO TO THAT ROUTINE. 


014412 010046 STRAP: MOV RO,-(SP) 3 SAVE _RO 

014414 016600 000002 MOV 2(SP) ,RO zIGET TRAP ADDRESS 
014420 005740 TST =(RO KUP BY 

014422 111000 MOVB (RO) ,RO 33GET ot BYTE OF TRAP 
014424 006300 ASL RO sPOSITION FOR INDEXING 
014426 016000 014446 MOV STRPAD(RO),RO ;; INDEX TO TABLE 

014432 000200 RTS RO 3:G0 TO ROUTINE 


33THIS IS USE TO HANDLE THE ‘’GETPRI*’ MACRO 


014434 011646 $TRAP2: MOV (SP) ,=(SP) ;;MOVE THE PC DOWN 
014436 016666 000004 000002 MOV 4(SP5 ,2(SP) >sMOVE THE PSW DOWN 
014444 000002 RTI zsRESTORE THE PSW 


-SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3*BY THE “‘TRAP’’ INSTRUCTION. 


: ROUTINE 
014446 014434 STRPAD: .WORD $TRAP2 
014450 013004 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
014452 012602 $TYPOC ;;CALL=TYPOC TRA +¢( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
014454 012556 $TYPOS i: CALL= TYPOS = TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
014456 012616 STYPON ::CALL=TYPON TRAP#4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
014460 011300 STYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
014462 011224 STYPBN ::CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCI!) NUMBER 
014464 013336 SGTSWR :;CALL=GTSWR | TRAP+7(104407) GET SOFT-SwWR SETTING 
014466 013266 SCKSWR ;:CALL=CKSWR | TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 
014470 013550 SRDCHR ::CALL=RDCHR § TRAP+11(104411) TTY TYPEIN CHARACTER ROUT INE 
014472 013670 SRDLIN ::CALL=RDLIN TRAP*12(104412) TTY TYPEIN STRING ROUTINE 
A 014474 014042 SRDOCT ::CALL=RDOCT | TRAP+13(104413) READ AN OCTAL NUMBER” FROM TTY 
6 : THE FOLLOWING MACRO CALL WAS ADDED TO INIT 11/21 SPECIFIC VECTORS. 
6 014476 Points =, [SAVE POINTER 
000100 =100 
000100 014476 SCLKVEC LKVEC HANDLER 
000102 000300 300 IN NTER RUPT HANDLER PRI 
000140 -=140 SBRKVEC 
000140 170000 170000 3001 START ADDRESS 
000142 000300 300 “PRIORITY 
476 .=POINT *RESTORE POINTER 


RFRA ANUUA RRA RRR RRR FAA FAA AA FEA AAA BABE EEA EEE 
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eee wwe YS SIO UB eee ee eee 


014 
014476 104401 014504 SCLKVEC: TYPE ,CLKMES 


ro 


SEQ 0061 
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HALT 
eASCIZ 21 8><12>/L KVEC INTERRUPT = DISCONNECT LTC / 


END 
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CROSS REFERENCE TABLE == USER SYMBOLS 


5713 5793 5794 5795 5796 6468 


64794 
6348* 6349 64784 
58294 


6276 65234 
65244 


65264 
6250 65274 
84 


65704 
6567 65704 
65704 


eee ne ee ee ee © ee Ce + ee oe - ——-- - -- 


SEQ 0062 
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bet he ies AAV11 
CNAAAA.P11 27=DEC-82 14:25 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0063 
APTSPO= 000100 6567 65704 
ASWREG= 000000 5713 
ATESTN= 000000 5713 
AUNIT = 0000 5713 
USWR = 00000 5713 
AVECT1= 000000 5713 
AVECT2= 000000 5713 
BADUNT 007004 5838* 6232 64694 6560+ 
EGIN 001450 5695 58314 6562 
BEGINA 001456 5830 58324 
BEGINI 001462 5828 58334 
ITO = 000001 56884 5924 6471 
BITOO = 000001 56884 
BITO1 = 000002 56884 
1T02 = 000004 56884 
BITO3 = 000010 56884 
1T04 = 000020 56884 
BITOS = 000040 56884 
1T06 = 000100 56884 
BITO7? = 000200 56884 
BITO8 = 000400 56884 6559 
BITO9 = 001000 56884 6559 6560 
BIT1 = 000002 56884 
BIT10 = 002000 56884 6560 
BIT11 = 004000 56884 5956 5966 5985 5993 6014 6023 6045 6056 6179 6559 
BIT12 = 010000 56884 
BIT13 = 020000 56 6560 
BIT14 = 040000 56884 559 
BIT15 = 100000 56884 916 
BIT2 = 000004 56884 
BITS = 000010 56884 6178 6384 
BIT4 = 000020 56884 
BITS = 000040 56884 
BIT6 = 000100 56884 
BIT? = 000200 56884 6325 6329 6347 
BIT8 = 000400 56884 
BIT9 = 001000 56884 
BPTVEC= 000014 56884 
BRKVEC= 000140 56884 
CALDAC 006104 6212 6215 6218 6221 62944 
SWR = 104410 6440 6452 6559 6560 65748 
CLKMES 014504 65774 
OMP 006520 6197 6206 6256 6282 6306 63908 
CONVRT 006302 6194 6203 6253 6279 6302 63424 
= 15 56884 6567 
CRLF = 000200 56884 6567 
CSPACE 006422 6251 6277 63674 
DACBAD 007002 6240*  6269* 6296* 646 $354 
DACO 001422 57934 5856+ 5929 5941* 942 5949* 5950 5957 5958 5966* 5967* 6061" 6066 
6091* 6094 6138* 6212 6418 goee* 459* 6550 
DAC1 001424 57944 5857*  5860* 5930 5970* 71 977+ 5978 5986" 5987 5993" 5994* 6062+ 
$078 gi0is 104 gis 6215 0 6443" 6460" 6551 
DAC2 001426 57954 858« 861* 931 5999* 6000 6007* 6008 6015* 6016 6023*  6026* 6063+ 
pac3 001430 orpee $8552 Shade «8099 O50 cost SO38= 6099 SORE O47 6056" G0S7* 6064 
t ® & ® ® ® 
6084 6121* 6125 6141* 6181" 6221 6424 6445* 646c* 6553 


—_——_-——_—_—————_—_—_————-——_-_-_------- > — 


m5 
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AAV11 
\CNAAAA.P11 ——-27=DEC=82 14:25 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0064 
'DDISP = 177570 56884 5713 5837 
‘DFO =—--011204 5721 5727 ©5733 «= 5739 = s«5745 «5751. 5759. «5765S 5771S“ S777,—Ss« 5783 = 65554 
DH] §=—--010267 5725 5731S 573757435781 G5 17# 
DH2 =: 010322 5719 65184 
DH6 == 010337 5749 5757 «5763 «= 5769 = «5775-65198 
DISPLA 001142 5713@ 5837* 6559% 6560* 
DISPRE 000174 5695¢ 5837 ‘ 
DRIN 007024 6182 6477" 
DSWR = 177570 56884 5713 5837 
DT] = 011112 5720 6549" 
DT2.=—s-011120 5726 © 6550# 
DT3 =: 011132 5732 65518 
DTS =—-s«011144 5738 4965528 
DTS =—»— 011156 5744 5782 65534 
DT6 =—ss-011170 5750 5758 5764 5770 5776 6554# 
DYNCAL 006716 5698 64508 
EMTVEC= 000030 56884 58378 
007122 5718 6496 

EM10 007472 5762 65034 
EM11 007537 5768 6504 
EM12 007574 5774 65054 
EM13. 007631 5780  6506# 
EM14 007675 5786 6 65074 
EM2 00717. 5724 64978 
EM3 =: 007225 5730 64984 
EMA 007254 5736 © 64998 
EMS «007303 5742 65004 
£ 007332 5748 65014 

7007413 5756 © 65024 
ERRTOT 010176 6228 6512" 
ERRVEC= 000004 56884 5837* S889* 5928* 5936" 5938* 6559s 

X = 000003 65414 6544 6547 
EVER 001420 5792# 5834* 5903 5915" 5916" 5918 6135 
FILZ 007022 6321* 6325* 6329" 6333" 64768 
FOUND! 010224 5908  6514# 
FOUND2 010250 5914 6516" 
FULRMP 006570 5696 64164 
GAIDAC 005764 6212 6215 6218 6221 6267# 
GNS = seeeee YJ 5695 6574 
GTSWR = 104407 65748 
HT = 000011 56884 6567 
INIT] 002044 5839 58714 6233 
INIT? 005576 6224 
1OTVEC= 00002 56884 5837* 
LDSPAC 007746 6367 6508# 
LOTRAP 001746 58444 5871 5923 6417 6439 6451 
LF = 000012 56884 6567 
LKVEC = 000100 56884 
MASKNM 007010 S887* 5924" 6142* 64714 6560 

SGD 010210 6231 65134 
MSGSw 010011 5879 65098 
MTEST 002102 5873 5875 = SBB6M 

Ok 007006 5829* 5831* 5895 6470" 

N51200 011064 6247 65424 


ODTST = 170000 56884 
OFFDAC 005634 6212 6215 6218 6221 62384 








—___-__-_—___—_—__--—-—____-_-——_-_---_-------- - eo 
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|MAINDEC=11=CNAAA=A AAV11 DIAGNOSTIC MACY11 30(1046) 27=DEC=82 14:27 PAGE 86-3 
CNAAAA.P11 27-DEC~82 14:25 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0065 
= 177772 56884 
= 000240 56884 ° 
= 014476 65774 
= 00 56884 
= 40 56884 
= 000100 56884 
= 140 56884 
= 00 56884 
= 000240 56884 
= 300 56884 5837 6562 
= 000340 56884 
= 177776 56884 
= 177776 56884 
012510 6562 65634 
PWRVEC= 000024 56884 5837* 6562* 
011077 6273 65454 
= 104411 6568 65744 
= 104412 6569 65744 
= 13 65744 
004530 5937 61324 
= 000010 56884 
010726 6212 6245 65354 
010744 6215 65364 
010762 6218 65374 
011000 6221 65384 
006212 6246 6272 63184 
007016 6196* 6205* 6255* 6281*  6305* 6397 64744 6554 
K = 001100 56884 5837 6416 6438 6450 
006650 5697 64384 
= 177774 56884 
= 000001 65404 6542 6545 
001140 57134 5837* 6441 6453 6559 6560 6562* 6568+ 
000176 56954 5837 6568 
= 000001 56884 
= 000001 56884 
= 000002 56884 
= 000004 56884 
= 000010 56884 
= 20 56884 
= 000040 56884 
= 000100 56884 
= 200 56884 
= 000400 56884 
= 001000 56884 
od 02 56884 
= 002000 56884 
= 004000 56884 
= 010000 56884 
= 020000 56884 
= 040000 56884 
= 100000 56884 
= 000004 56884 


MAINDEC=11=CNAAA=A AAV11 
CNAAAA.P11 27-DEC=82 14:25 
sw? = 000200 56884 
SWB = = 000400 56884 
Sw9_ = 001000 56884 
TBITVE= 000014 56884 
TEMP §=6.007012 5833* 
TESTER 001432 5704 
TIT 007040 5881 
= 000060 56884 
PVEC = 000064 56884 
TRAPVE= 000034 56884 
TRTVEC= 000014 56884 
YAGN 011016 6260 
T1 002306 2506 
002752 597 
003010 5980 
003062 59934 
003154 59944 
003250 5997# 
003304 6002 
003342 6010 
003414 60234 
002364 59398 
003506 60264 
003602 60284 
003636 6033 
003674 6041 
Sig Hite 
004134 60604 
004316 6086 
002420 5944 
004362 6096 
004426 6106 
004464 6116 
004530 6126 
004624 61 
004646 6173 
004740 61924 
005002 619 
002456 595 
005044 6207 
005076 62124 
005126 62128 
005146 62154 
005200 62154 
rt 
008562 9 184 
0025 
005332 62184 
005352 62214 
trey 6s 14 
0054 3 ‘e 
2622 9674 
2716 59684 
TYPBN = 104406 6232 
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5872 
58274 
64954 


65744 


CROSS REFERENCE TABLE == USER SYMBOLS 


6123* 64720 


65394 
6144 


SEQ 0066 


—— Rr eee SC FE a rr ar ree 


C 6 
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\MAINDEC=11=CNAAAA AAVI1 
CNAAAA.P11 = -27=DEC=82 14:25 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0067 
TYPDS = 104405 6224 6230 6574" 
TYPE = 104401 S358 «$880 «$307 «5913 6226 «6228 6231 6244 6249, 62596275 62856367 
6557 6558 + 6560. 96561 6562 6566 «= 6567 «= 6568 «= 6574" = 6577 
TYPOC = 104402 6361, 6568 65748 
TYPON = 104604 65748 
TYPOS = 104403 5910 65748 
VADDR 001416 5791# 5891 6138. 6139 «= 6140 6141 
V144 007034 6196 6205. 64814 
007036 620g 64824 
v5744 007032 6193 64808 
WFTST 007020 5827+ 5832* 5876 5905 6172 6226 6475" 
$APTHD 001 57128 
SASTAT= teense YJ 6570 
SATYC 014170 65708 
SATYT 014144 6570" 
SATYS 014152 6567 65708 
SATY4 014162 6560. 65708 
$AUTOB 001134 57134 6568 
$BASE 001250 57134 5855 5886 
$BDADR 001122 57134 
SBDDAT 001126 57134 5886* 5890 5891* 5942" 5943 5950" 5951 5958" 5959  5966* 5967* 5971* 
5972 5978* 5979 5987* 5988 5993+ 5994* 6000" 6001  6008* 6009  6016* 6017 
G023* 6026" 6031* 6032 6039 6040 6047" 6048  6056* 6057" 6066* 6067 6072 
6073 6078* 6079  6084* 6085 6094" 6095 6104 6105 6115 6125* 6182*  6183¢ 
6184. 6358* 6393 6549 6550 6551 6552 6553 6554 
SBELL 001164 57134 
IN 011276 6557#* 
CDW1 001254 57138 
SCHARC 013262 6567#« 
SCKSWR 013266 5684 6574 
SCLKVE 014476 65778 
SCMTAG 001100 5713# 5837 
CM3 = 000000 57138 
SCNTLG 014013 5684 
SCNTLU 014006 65684 
c 001222 57134 
$CRLF 001171 57134 6560 6561 6567 6568 
$DBLK 011514 65584 
SDEVCT 001204 57134 5922* 61378 
EVM 001252 57134 
$DOAGN 005552 6224e 
$DTBL 011504 65584 
SENDAD 005542 5710. 6224" 
SENDCT 005510 6224e 
SENDMG 005561 62244 
SENULL 005556 6224# 
NV 001214 57134 5893 6560 6567 6570 
SENVM 001215 57134 5837. 6567 6570 
OP 005454 6174 6224e 
SEOPCT 005502 62248 
SERFLG 001103 S715# 6559" 6560s 
SERMAX 001115 57134 5837* 6559s 
SERROR 012006 5837 65608 
SERRPC 001116 57134 6549 6550 6551 6552 6553 6554 6560* 6561 
SERRTB 001256 57134 6561 
SERRTY 012202 6560 65614 











0 6 
MAINDEC-11=CNAAA-A AAV11 DIAGNOSTIC MACY11 30(1046) 27=DEC-22 14:27 PAGE 86-6 
CNAAAA.P11 27=DEC=82 14:25 CROSS REFERENCE TABLE == USER SYMBULS SEQ 0068 
SERTTL 001112 5713# 6229  6560* 
SESCAP 001162 5713# 5837" 6559" 6560 
TABL 001214 57138 
SETEND 001256 S712 S7 138 
SFATAL 001176 S713# 65708 
SFFLG 014410 6570#* 
$FILLC 001156 57138 6567 
SFILLS 001155 57138 6567 
SGDADR 001120 57138 
$GDDAT 001124 5713# 5940* 5941 5943 5948* 5949 5951 5956" 5957 5959 5962"  5966« 7* 
5969" 5970 5972 5976" 5977 5979 5985s 5988 «= 55991" 5993 5994" 5998s 
5999 6001  6006* 6007 09 6014* 6015 6017 6020" 6023 6026* 6029* 60 
6032  6037* 6038 6040  6045* 6046 6048  6051* 6056* 6057* 6065* 6067 6071* 
6073 6077" 6079  6083* 6085 6092 6095  6102* 6105 6113" 6122" 6179* 6184 
6188* 6193* 6202 6252* 6278 6300" 6310" 6392 6550 6551 6553 6554 
$GET42 005532 62248 
$GTSWR 013336 65684 6574 
$HD = 000000 5687 
$HIBTS 001000 57128 
SHIOCT 014142 6569a« 
SICNT 001104 57138 6559* 
ISILLUP 012502 65624 
‘SINTAG 001135 57138 6568 
SITEMB 001114 57134 6560* 6561 
F 001172 5713# 6560 6567 6568 
SLFLG 014407 6570#« 
SLPADR 001106 5713#@ 5837 6559s 
$LPERR 001110 5713# 5837" 6559" 6560 
SMADRi 001226 57138 
SMADR2 001232 57138 
SMADR3 001236 57138 
SMADR4 001242 57138 
$MAIL 001174 5712 57134 5837 6559 6560 6567 
SMAMS1 001224 57138 
SMAMS2 001230 57138 
SMAMSS 001236 57138 
SMAMS4 001240 57138 
$MBADR 001002 57128 
SMFLG 014406 6570#« 
SMNEW 014031 65684 
SGAD 001210 5713# 65708 
$MSGLG 001212 5713# 6570s 
SMSGTY 001174 5713 65708 
SMSWR 014020 65688 
SHTYP1 001225 57138 
SMTYP2 001231 57138 
SMTYP3 001235 57134 
SHTYP4 001241 57138 
SMXCNT 012004 65594 
LL_ 001154 713# ©6567 
$NWTST= 000001 59274 5939" 5947# 5955" 5966" 5967# 5968# Sv7SH 59848 59938 5994" 5997" 6005# 
60134 60234 6026" 6028 60368 6044# 6056" 6057" 6060" 60908 61008 61118 61208 
61334 61714 61774 6192" 62018 62128 62154 6218# 62218 
SOCNT 013000 $566m* 
SOMODE 013002 6566M« 
SOVER 011770 65598 





| E 6 
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11 
CNAAAA.P11 27=DEC-82 14:25 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0069 
SPASS 001202 57134 5837" 6212 6215 6218 6221 6224* 6559 
SPASTM 001006 57128 
SPWRAD 012476 $2660 
SPWRON 012336 837 65624 
MG 012472 65624 
UP 012410 Ssoe8 
S$ 001170 57134 6560 6567 6568 
SROCHR 013550 65684 6574 
SRODEC= severe YJ 6574 
SROLIN 013670 65684 6574 
RDOCT 014042 65694 6574 
SRDSZ = 10 65684 
SRTNAD 005554 62244 
R2A = eteeee YJ 6574 
SSAVRE= teeeee 74 
SSAVR6 0125 65624 
COPE 011524 65594 
SSETUP= 117 5715#@ 58364 5837 6224 6559 6560 6568 
$STUP = 177777 57154 58364 
a a ALE 6 65594 
SWR = 167400 56794 5687 5694 5713 5837 5927 5939 5947 5955 5966 5967 5968 5975 
5984 5993 5994 5997 6005 6013 6023 6026 6028 6036 6044 6056 6057 
6060 09 6100 6111 6120 6133 6171 6172 192 6201 6212 6215 6218 
6221 6224 6559 6560 6562 
SSWREG 001216 5713# 5837 
SSWRMK= 000000 5694 6559 
STEMP 7014 178* 8 6189* 64734 
STESTN 1200 713@ 6559* 
1160 571 5837* 5955* 5966*  5967* 5984 5993* 5994* 6013*  6023*  6026*  6044* 6056+ 
6057* 6090" 6100* 6111* 6120* 6153* 6171* 6177" 6192* 6201* 6212* 6215* 6218+ 


$TKB 1146 57134 6378 6568 
$TKS 1144 57134 6370 6568 
$TN = 000054 56804 5687 5902 59274 59398 5944 5947" 5952 5955# 5966" 5967" 5968" 5973 
5975#@ 5980 5984" 59934 59948 5997% 6002 6005# 6010 6013" 60238 6026" 60284 
6033 6036" 6041 6044" 60564 6057# 60604 6086 6090" 6096 6100" 6106 61118 
6116 61208 6126 61334 6136 61718 6173 6177# 61924 6198  6201# 6207 62128 
6215 62184 62214 
TPB 001152 57134 6567* 
STPFLG 001157 57134 6567 : 
TPS 001150 57134 656 
$TRAP_ 014412 5837 6574" 
STRAP2 014434 65748 
TRP = 000014 65748 
STRPAD 014446 65748 
$TSTM 001004 57128 
STSTNM 001102 5713 6143" 6224* 6559* 6560 
STTYIN 013776 65684 
$TYPBN 011224 65574 6574 
$TYPDS 011300 65584 6574 
$TYPE 013004 65674 6570 6574 
STYPEC 013216 65674 6568 
STYPEX 013264 65674 
$TYPOC 012602 5664 ©6574 
$TYPON 012616 6566" 6574 
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“MAINDEC=11-CNAAA= A 


| CNAAAA.P11 


SASTA= sxeeeee 
-$x = 001000 


AAV11 DIAGNOSTIC MACY11 30(1046) 
27=DEC-82 14:25 CROSS REFERENCE TABLE == USER SYMB 

65664 6574 

57134 5888* 5892+ 5895 5899 5909 5915 

$7128 

57134 

57134 

57134 

65594 

62244 

65664" 

559 6560 

56954 57008 57034 5706 =5710# =%S711#8 57124 

es Hy 6562 6567 65684 65708 65774 


5918 


57134 


6 
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5921 


5837 


6134« 


6224 


6135 


65584 


6559 


SEQ 0070 


6560 


——_—--——- -- ee ee - en 


' 


6 
| MAINDEC=11=CNAAA=A DIAGNOSTIC MACY11_ 30(1046) 27°peC-82 P as 27 PAGE 87 
| CNAAAA.P11 27-DEC-82 ta: 25 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0071 


ADJR $2208 6523 6524 6525 6526 6527 6528 6529 6530 


ERROR 5688" 5901 5920 5935 5945 5953 5961 5966 5967 5974 5981 5990 5993 5994 6003 
6011 6019 6023 6026 6034 6042 6050 6056 6057 6069 6075 6081 6087 6186 6 
6208 6258 6284 6308 6376 
/ESCAPE 16984 56884 
GETPRI 13128 56884 
GETSWR 17718 56884 
56884 


44844 

NEWTST 1626 56884 5927 5939 5947 5955 5966 5967 5968 5975 5984 5993 5994 5997 6005 
6013 6026 6028 6036 6044 6056 6057 6060 6090 6100 6111 6120 6133 6171 
6177 6192 6201 6212 6215 6218 6221 

POP 1534 56884 6558 6562 6569 6570 
21454 6558 6562 6569 6570 

REPORT 54634 56884 

SCOPE 6884 5927 5939 5947 5955 5966 5967 5968 5975 5984 5993 5994 997 6005 6013 


SKIP 1733 56884 5897 5902 5917 5919 5933 5944 5952 5960 5966 5967 5973 5980 5989 
993 5994 6002 6010 6018 6023 6026 6033 6041 6049 6056 6057 6068 6074 6080 
ogee Gone oi 6116 6126 6136 6173 6185 6198 6207 6212 6215 6218 6221 6257 
SLASH 15174 56884 
SPACE 8a 


TYPOCT 19414 5688 6561 6568 
TYPTXT 18944 56884 


SSCMRE 57134 

SSCMIM 8 57134 

SSESTA 17114 56884 

SSNEWT 16624 56884 5927 5939 5947 5955 5966 5967 5968 5975 5984 5993 5994 5997 6005 
6013 6023 6026 6028 6036 6044 6056 6057 6060 6090 6100 6111 6120 6133 6171 
6177 = 6192 6201 6212 6215 6218 6221 

SSSET 65744 

SSSETM 5837# 

S$SKIP 17464 56884 5902 5944 5952 5973 5980 6002 6010 6033 6041 6086 6096 6106 6116 
6126 36 6173 6198 6207 6212 6215 6218 6221 


61 
-EQUAT 1894 56814 5688 





| 6 
/MAINDEC-11=CNAAA=A DIAGNOSTIC MACY11 30(1046) 27-DEC 82. 
/CNAAAA.P11 27-DEC-82 ta: 133 CROSS MEFERENCE TABLE == MACRO N 


- ABS. 014550 000 


ERRORS DETECTED: 0 


CNAAAA, CNAAAA/CRF /NL : TOC=CNMAC2.SML,CNAAAA.P11 
RUN-TIME: 16 14 1 SECONDS 

RUN-TIME RATIO: 240/32=7.4 

CORE USED: 33k (66 PAGES) 


| .HEADE 614 56818 5687 
-INIT 56584 56884 6577 
|,SETUP 12134 56824 5715 5836 
|. SWRHI 10468 56834 5694 
{SWRLO 656948 

',SACT1 5064# 5685# 5710 
.SAPTB «651098 5685¢ 57134 
-SAPTH 5370 56854 5712 
.SAPTY 55474 56854 6570 
-SASTA = 54178 

.SCATC 932% 5681# 5695 
<SCMTA 1047@ 56814 5713 
.80B2D 46864 

-80B20 48128 

.SDIV = 45874 

.SEOP 221468 56814 6224 
~SERRO 27008 56814 656 
-SERRT 28964 568 6561 
.SMULT 45234 

~SPARM 56824 

$ 42298 5682" 6562 
.SRAND 43078 

-SRDDE 38914 

-$RDOC 37974 5684" 6569 
.SREAD 33954 56824 6568 
-SROAZ = 49584 

~SSAVE 39694 56824 

-$SB2D 47714 

-$SB20 48744 

-SSCOP 24548 5682" 6559 
-SSIZE 43614 

-SSPAC 56824 

.SSUPR 49134 

-$SWOO 56824 

~STRAP 40734 5682# 6574 
-STYPB 432874 6557 
-STYPD 32094 6558 
~STYPE 29854 56814 56824 6567 
-STYPO 31124 56814 6566 
.$40CA 9708 


| 
| 
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SEQ 0072 


—HFONNOOWS BMH KOCH TO NMMNONDWZ BH KOCH TOA AMOODZ EP KOCHMHTOAANMNGOWDZ Sr KCK FO MMIOW 


OMUMUIUIUIUIUIT ES BS ES EB EE BEBE ES BWWWWNWNWWWWWWWWNDNNNNNNNNNNN 3 3 3 te tee 


IDENTIFICATION 


RS ge REGISTER 
TEST DESCRIPTIONS 
“A AAV11 =—ODIA 


GNOSTIC 
“A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
“A AAV11 AGNOSTIC 
-A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
“A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV1i DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 - DIAGNOSTIC 
-A AAV11 «- BIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIACNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 
-A AAV11 DIAGNOSTIC 


XramMNooOwoOZsr xe 


DOAOAOCOQOOMUIUIUI 


